Sub Click()
Dim A, i&, j&, x&, t$, s%
Sheets(1).Select
A = Range([d1], Cells(Rows.Count, 5).End(3))
ReDim B(1 To UBound(A), 1 To 2)
x = 2
For i = 3 To UBound(A)
If A(i, 1) <> "" Or i = UBound(A) Then
If i = UBound(A) Then i = i + 1
s = s + 1
For j = x To i - 1
t = t & A(j, 2) & vbCrLf
Next j
A(s, 1) = s: A(s, 2) = t: t = "": x = i
End If
Next i
Sheets(2).Select
[f2:g65536] = ""
[f2].Resize(s, 2) = A
End Sub
2.rar
(19.76 KB, 下载次数: 7)
|