EXcel中使用VBA脚本循环复制整合相同编号的不同字段

最近在整理报表，每次整理的数据都比较多，在这次遇到了这个瓶颈，大概有700多条的数据，分布在不同的sheet中，并且每个sheet中的编号，是不一样的，只有一部分相同，我现在做的是要将相同编号的数据整合，通过简单的筛选，太费时间了，一个个的更是费时间。于是找啊，其实自己也知道有vba首先找的vba，因为网上讲的太不详细了加上自己着急，有点笨，所以，没成功，网上推荐是用vlokkup公式，还是笨，我还是不懂，无奈最后又回到了vba，一个小时后，代码出来了，才发现自己真的很笨。就是简单的vb代码，好吧不说废话了，给大家看一下代码吧。 创建一个按钮之后，写上如下代码:

Dim ws1, ws2 As WorksheetDim i, j As IntegerSet ws1 = Worksheets("Sheet1")Set ws2 = Worksheets("Sheet2")For i = 2 To 1794    For j = 2 To 1277        If ws1.Cells(i, 4) = ws2.Cells(j, 3) Then            If ws2.Cells(j, 5) <> "" Then                ws1.Cells(i, 21) = ws2.Cells(j, 5)            End If            If ws2.Cells(j, 6) <> "" Then                ws1.Cells(i, 22) = ws2.Cells(j, 6)            End If        End If    Next jNext i

PS:我做的时候因为大小写出错了，所以注意表格中sheet的大小写。写出来之后，发现自己那么笨。如果你遇到，如果你也不会用，那就留言吧。见笑了。

生活不是等待风暴过去，而是学会在雨中翩翩起舞。