Sub Macro1 ()
'
'Macro1 Macro
Dim rw As Range
Dim As Integer I
For Each rw In Range (A2: "F" & amp; Range (" A2 "). The End (xlDown). Row)
For I=1 To 6
If Cells (rw) Row, I) & lt;> 0 Then
Cells (rw. Row, 8) Value=https://bbs.csdn.net/topics/Cells (rw) Row, 8). The Value & Cells (1, I)
The Else
Cells (rw. Row, 8) Value=https://bbs.csdn.net/topics/Cells (rw) Row, 8). The Value
End the If
Next
Next
End Sub
CodePudding user response:
Didn't understand what you want to express...CodePudding user response:
H column of the result should be the current number of 0, and the content of the corresponding to the first line, H column should be below normal, but I repeated cycle makes the content several times