求教EXCEL VBA问题

xusailor

Sub 第一个()
Dim rss, rcc As Integer
Dim m As Long
rss = 1
rcc = 1
m = 0
Do Until Sheet2.Range("a" & rss) = ""
m = Sheet2.Range("b" & rss)
Do Until Sheet1.Range("a" & rcc) = ""
If Sheet2.Range("a" & rss) = Sheet1.Range("a" & rcc) Then
m = m - Sheet1.Range("c" & rcc)
rcc = rcc + 1
Else
rcc = rcc + 1
End If
Loop
Sheet2.Range("c" & rss) = m
rss = rss + 1
Loop
End Sub
第一次内循环完成后进行第二次大循环时，sheet1表的指针还是在表尾，所以内循环就不能执行了，问题是怎么能更新SHEET1，使他的指针到第一行去。

lijiawu1122

Sheet2
这种写法不对吧？

xusailor

对的 我运行过 能出结果，不过结果是错误的而已

xusailor

现在的问题是这个循环完成后
Do Until Sheet1.Range("a" & rcc) = ""
If Sheet2.Range("a" & rss) = Sheet1.Range("a" & rcc) Then
m = m - Sheet1.Range("c" & rcc)
rcc = rcc + 1
Else
rcc = rcc + 1
End If
Loop
，指针一直停在sheet1的最后一行，所以以后的循环一直判断Sheet1.Range("a" & rcc) = " "
就不执行了

xusailor

是我糊涂了，第一次搞VBA，汗，只要在后面加个rcc=1就OK 了！