Excel VBA 数据循环赋值问题 （跪求代码）
假设我有这2组数据（数据组1和2），首先把数据组1的单元格B2~B25元素自动导入表8的单元格B2~B26，然后把表1~表8的结果2的T数量统计出来，自动导入成果报告里的B2~I2；接着把数据组2的单元格C2~C25自动导入表8的单元格B2~B26，然后把表1~表8的结果2的T数量统计出来，自动导入成果报告里的J2~Q2。再接着，把数据组1的单元格B3~C26自动导入表8的单元格B2~B26，然后把表1~表8的结果2的T数量统计出来，自动导入成果报告里的B3~I3，然后把数据组2的单元格C3~C26自动导入表8的单元格B2~B26，然后把表1~表8的结果2的T数量统计出来，自动导入成果报告里的J3~Q3。。。。。如此类推，直至表8里的单元格B26为数据组的最后一行。
第1个回答 2019-04-14
Sub AutoInput()
Dim i, j, k, m, n As Long
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
Set mysheet2 = ThisWorkbook.Worksheets("Sheet2")
k = 1 '初始值赋值
For i = 1 To 8 '所要填充的列数为8列
If i Mod 2 = 0 Then
n = 0
For j = 1 To 6
k = k + 1
For m = 1 To 4 '每4列为一组
n = n + 1 '从原表格第一列开始
mysheet2.Cells(n, i) = mysheet1.Cells(k, m) '赋值
Next
Next
End If
Next
End Sub追问
Dim i, j, k, m, n As Long
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
Set mysheet2 = ThisWorkbook.Worksheets("Sheet2")
k = 1 '初始值赋值
For i = 1 To 8 '所要填充的列数为8列
If i Mod 2 = 0 Then
n = 0
For j = 1 To 6
k = k + 1
For m = 1 To 4 '每4列为一组
n = n + 1 '从原表格第一列开始
mysheet2.Cells(n, i) = mysheet1.Cells(k, m) '赋值
Next
Next
End If
Next
End Sub追问
请问您代码放进那里？是插入那个表？还是新建一个表？还是插入模块？
相似回答
