Question

excel vba 问题 关于分类汇总至新 表格

求助大师，一份表格，想按“备注”分类，然后分别复制到新表格中，求最简洁的VBA语句，用SQL的select好像用不了，求救!!

Answer 1

假设“备注”在G列
Sub 分类()
For i = 2 To [a65536].End(xlUp).Row
b = Cells(i, 7)
Range(Cells(i, 1), Cells(i, 7)).Copy Sheets(b).Range("a" & Sheets(b).[a65536].End(xlUp).Row + 1)
Next
End Sub

注意，必须在工作簿中先行添加几个工作表（以备注的内容命名）