Tag: 循环

在Excel VBA中嵌套复制/粘贴循环

VBA非常新，并试图编写一个循环内有一个循环的macros。 我想整个代码运行30次 For i = 1 To 30 Worksheets("Salary Extract (SPs Only)").Range("B" & (1 + i)).Copy Worksheets("Pitcher Matchup Analysis").Paste Destination = Worksheets("Pitcher Matchup Analysis").Range("B9") For i = 1 To 9 Worksheets("Pitcher Matchup Analysis").Range("B" & (38 + i)).Copy Worksheets("Batter Matchup Analysis").Paste Destination = Worksheets("Batter Matchup Analysis").Range("B1") Worksheets("Batter Matchup Analysis").Range("B88:AC88").Copy Worksheets("Pitcher Matchup Analysis").Range("C" & (38 + i) […]

我只循环通过第一次迭代

我有我的循环麻烦。 出于某种原因，我的循环只经过第一次迭代（ i=0 ），然后停止。 这是我的代码： Private Sub DeleteFillerRows() Dim firstRow As Integer Dim lastRow As Integer Dim searchRange As Range Dim i As Integer For i = 0 To i = 2 If i = 0 Then lastRow = 1 End If MsgBox (i) 'used for testing, only displays the first i (0) Set searchRange […]

麻烦停止我的循环

Do While Cells(i, 1).Value <> "" …. End If i = i + 1 Loop End Sub 对。 它与数字正常工作，完美停止。 但是与文本。 它不停止。 理想情况下，我想停止在我的内容的最后一行，而不是我在Excel中的最后一行。 我设法使它与数字正常工作，但我不能用文本修复它。 任何帮助将是伟大的，因为我是VBA的初学者。 Sub checkRoutine() Dim i As Integer Dim LastRow As Long i = 1 Do While Cells(i, 1).Value <> "" If IsNumeric(Cells(i, 1).Value) Then Cells(i, 2).Value = Cells(i, 1).Value & " " […]

使用VBA循环显示具有不同名称的工作表

Dim Var_1 As String Dim Var_2 As String Dim Var_3 As String Dim Var_4 As String Dim Var_5 As String Dim Var_6 As String Dim Var_7 As String Dim Var_8 As String Dim Var_9 As String Dim Var_10 As String Dim Var_11 As String Dim Var_12 As String Dim Var_13 As String Dim Var_14 As […]

VBA：如何描述特定string的行

您好我试图创build一个循环，标识列“B”中的特定string，并SUM在同一行的列“D”中的值。 到目前为止，我已经能够识别“现金”，但是现在我不知道如何描述同一行的列“D”并且总结它。 请帮忙！ 下面是我到目前为止的这个循环。 Dim CD As Long Dim text As String Dim Z As Long CD = 0 For Z = 1 To Range("B" & Rows.Count).End(xlUp).Row text = Range("B" & Z).Value If Left(text, 4) = "Cash" Then Sum….

Excel VBA循环执行清除所有表格

我正在尝试清除第3行中的工作簿中的所有工作表。 我已经完成了这样的事情： With Sheets("Wizard Sheets Missing in Import") .Rows("3:" & .Rows.Count).Delete End With With Sheets("Import Sheets Missing in Wizard") .Rows("3:" & .Rows.Count).Delete End With With Sheets("Items Missing from Wizard") .Rows("3:" & .Rows.Count).Delete End With With Sheets("Items Missing from Imports") .Rows("3:" & .Rows.Count).Delete End With 但如果可能的话，想要实现一个循环。 我试过这个，它只清除活动表单和其他表单，尽pipe它被告知循环表单（据我所知）： For Each vWorksheet In ActiveWorkbook.Sheets With ActiveSheet Rows("3:" & […]

将具有多个不相邻单元格的区域复制到同一单元格上的另一个工作表

我写了下面的代码工作正常，除了它需要永远，看起来像Excel是癫痫发作。 任何帮助史前史的东西将不胜感激。 Sub Data() Sheets("2").Unprotect "Joe" Worksheets("3").Range("a").Copy Worksheets("2").Range("D10").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("b").Copy Worksheets("2").Range("L10").PasteSpecial Paste:=xlPasteValues Worksheets("2").Range("L18").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("c").Copy Worksheets("2").Range("D11").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("d").Copy Worksheets("2").Range("L11").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("e").Copy Worksheets("2").Range("D17").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("f").Copy Worksheets("2").Range("L17").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("g").Copy Worksheets("2").Range("D18").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("h").Copy Worksheets("2").Range("D19").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("i").Copy Worksheets("2").Range("L19").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("j").Copy Worksheets("2").Range("D20").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("k").Copy Worksheets("2").Range("E22").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("l").Copy Worksheets("2").Range("E23").PasteSpecial Paste:=xlPasteValues Worksheets("3").Range("m").Copy Worksheets("2").Range("E24").PasteSpecial Paste:=xlPasteValues End Sub

Excel VBA循环行不起作用，运行时错误“1004”

我想创build一个循环，通过在Excel中选定范围内的行，并输出到每一行的分数，但我得到这个错误引用for循环（设置VARIABLE1）中的firt行。 如果我用“A2”replace.Range（“A”），那么我得到一个输出，但只有第一行自然。 我怎样才能让代码循环每一行？ 代码： Dim rng As Range Dim Final_risk_score Set rng = Worksheets("sheet name").Range("A1:Z100") For Each Row In rng.Rows VARIABLE1 = Worksheets("sheet name").Range("A") VARIABLE2 = Worksheets("sheet name").Range("K") VARIABLE3 = Worksheets("sheet name").Range("J") VARIABLE4 = Worksheets("sheet name").Range("W") VARIABLE5 = Worksheets("sheet name").Range("G") VARIABLE6 = Worksheets("sheet name").Range("N") VARIABLE7 = Worksheets("sheet name").Range("X") VARIABLE8 = Worksheets("sheet name").Range("Y") VARIABLE9 = Worksheets("sheet2").Range("N7") […]

当通过数组excel VBA循环时，下标超出范围

我想在Excel中拆分一个string，然后将string的每个元素写入另一个工作表的一列，但我似乎无法完成循环之前，它得到下标超出范围的错误。 Sub S1() Dim Wb As Workbook Dim rowValue() As String Dim i As Variant For i = 2 To 15500 With Worksheets(1) Value2 = Worksheets(1).Cells(i, 1) rowValue = Split(Worksheets(1).Cells(i, 1).Value, " ") rowValue(11) = rowValue(11) & " " & rowValue(12) & " " & rowValue(13) arraySize = UBound(rowValue) – LBound(rowValue) + 1 If arraySize […]

根据名称将文本框值分配给相应的单元格

我在窗体上有一组文本框，称为sm1，sm2等，我想将它们分配给单元格A1，A2等。有没有办法把它放在一个循环，即： For i = 1 to 100 Cells(i, 1).Value = ("sm" & c).Value Next i