这段EXCEL vba怎么解释

Question

With Sheets(1)
For Each Rng In .Range("a1", .Cells(Rows.Count, 1).End(3))
If Rng.Interior.ColorIndex <> Rng.Offset(1).Interior.ColorIndex Then
m = Rng.Row - i + 1
Sheets.Add after:=ActiveSheet
.Cells(i, 1).Resize(m, j).Copy [a1]
i = Rng.Offset(1).Row
End If
Next
End With

谁能帮注释下

Answer 1

这段代码的意思是将第一个工作表拆分成多个工作表，拆分位置是按A列填充色变化的地方。主要代码功能解释如下

With Sheets(1)
For Each Rng In .Range("a1", .Cells(Rows.Count, 1).End(3)) '循环A列已使用的单元格
If Rng.Interior.ColorIndex <> Rng.Offset(1).Interior.ColorIndex Then '如果这个单元格与下面的单元格填充色不同
m = Rng.Row - i + 1 '确定后面要复制行数
Sheets.Add after:=ActiveSheet '在活动工作表后增加一个工作表
.Cells(i, 1).Resize(m, j).Copy [a1] '将本行开始往下m行j列复制到新建表的左上角
i = Rng.Offset(1).Row '确定下一次复制的起始行
End If
Next
End With