求帮忙

qifeng719

请帮忙用VBA将A列的序号跟B列内容统一汇总到汇总表A1单元格内并靠左且自动换行，在A列内容跟B列内容之间加个顿号。


请帮忙用VBA将A列的序号跟B列内容统一汇总到汇总表A1单元格内并靠左且自动换行，在A列内容跟B列内容之间加个顿号。

hfwufanhf2006

把下面的代码放在表“汇总”里：

s = ""
For i = 2 To Worksheets("数据").[a10000].End(3).Row
    s = IIf(Len(s) = 0, Worksheets("数据").Cells(i, 1) & "、" & Worksheets("数据").Cells(i, 2), s & Chr(10) & Chr(13) & Worksheets("数据").Cells(i, 1) & "、" & Worksheets("数据").Cells(i, 2))
Next i
Cells(1, 1) = s