|
楼主 |
发表于 2022-2-5 16:13
|
显示全部楼层
Sub 文本框综合()
With Sheets("Sheet1")
r = .Cells(Rows.Count, 1).End(xlUp).Row + 5
ar = .Range("a1:d" & r)
For i = 2 To UBound(ar) - 5 Step 6
If zf = "" Then
zf = ar(i, 1)
Else
zf = zf & vbCrLf & ar(i, 1)
End If
For j = 2 To UBound(ar, 2)
For s = i To i + 5
If Trim(ar(s, j)) <> "" Then
zf = zf & vbCrLf & ar(s, j)
End If
Next s
Next j
zf = zf & vbCrLf
Next i
.Range("F3") = zf
End With
End Sub |
|