Excel VBA:扫描一张工作表并将数据复制到另一张工作表
我需要一些关于下面代码的帮助 我正试图写一个程序,将扫描表2中的一列,并有一个条件 语句,其中如果遇到“x”字符,则在 同一行将被复制并粘贴到不同的图纸中 我目前使用的程序成功地将A1复制到工作表1中,但没有复制到其他工作表中,我假设存在某种增量错误,但我无法检测到它 感谢您的帮助Excel VBA:扫描一张工作表并将数据复制到另一张工作表,excel,for-loop,vba,Excel,For Loop,Vba,我需要一些关于下面代码的帮助 我正试图写一个程序,将扫描表2中的一列,并有一个条件 语句,其中如果遇到“x”字符,则在 同一行将被复制并粘贴到不同的图纸中 我目前使用的程序成功地将A1复制到工作表1中,但没有复制到其他工作表中,我假设存在某种增量错误,但我无法检测到它 感谢您的帮助 Sub autofill_DSR() ' Variable Declarations: ' We want variables which keep a count of the total number of
Sub autofill_DSR()
' Variable Declarations:
' We want variables which keep a count of the total number of rows,
' the item code character values associated, a count of the total
' number of "x" characters encountered, and a flag to signify
' sheet transfer activation
Dim sheet_flip_flag, x_count, n As Integer
Dim item_a, item_b As String
Process_Control_NumRows = 16
Sheets(Array("Sheet1", "Sheet2")).Select
Sheets("Sheet2").Activate
Range("D1").Select
For n = 0 To n = (Process_Control_NumRows - 1)
If (ActiveCell.Offset(n, 0) = "x" Or ActiveCell.Offset(n, 0) = "X") Then
item_a = ActiveCell.Offset(n, -3).Value
item_b = ActiveCell.Offset(n, -2).Value
Sheets("Sheet1").Activate
Range("A1").Select
ActiveCell.Offset(n, 0).Value = (item_a & item_b)
Sheets("Sheet2").Activate
Range("D1").Select
End If
ActiveCell.Offset(n, 1).Value = NN
Next n
End Sub
更新要读取的代码中
For
循环的代码
For n = 0 To (Process_Control_NumRows - 1)
这将根据您的需要增加n