|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 三行一组数据()
Dim m As Long
Dim n As Long
Dim i As Long
m = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
n = 1
For i = 1 To m / 3 Step 1
Worksheets("Sheet2").Cells(i, "A") = Worksheets("Sheet1").Cells(n, "A")
Worksheets("Sheet2").Cells(i, "B") = Worksheets("Sheet1").Cells(n + 1, "A")
Worksheets("Sheet2").Range(Cells(i, "C"), Cells(i, "L")).Value = Worksheets("Sheet1").Range(Cells(n + 2, "A"), Cells(n + 2, "J")).Value
n = n + 3
If (3 * i >= m) Then Exit For
Next i
End Sub
报错就是蓝色这段
|
|