我的回圈重復了多次 但不太清楚應該怎么修改 求教大神
Sub Macro1()
'
' Macro1 Macro
Dim rw As Range
Dim i As Integer
For Each rw In Range("A2:F" & Range("A2").End(xlDown).Row)
For i = 1 To 6
If Cells(rw.Row, i) <> 0 Then
Cells(rw.Row, 8).Value = Cells(rw.Row, 8).Value & Cells(1, i)
Else
Cells(rw.Row,8).Value = Cells(rw.Row, 8).Value
End If
Next
Next
End Sub
uj5u.com熱心網友回復：
沒明白你要表達什么……uj5u.com熱心網友回復：
就H列的結果應該是當前面的數不為0時，對應第一行的內容加和，H列正常應該是如下圖，但是我的回圈使得內容重復了很多次
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/253218.html
標籤：VBA
上一篇：求教大神 橫向粘貼問題
下一篇：只能下載部分網頁，怎么辦