单元元数据合并VBA
Sub 数据合并()
i = Sheet3.Cells(Rows.Count, 1).End(xlUp).Row
With Sheet3
For j = 1 To i
Set k = Range(.Cells(j, 1), .Cells(j, Columns.Count).End(xlToLeft))
arr = Application.Transpose(Application.Transpose(k))
Cells(j, 1) = "'" & Join(arr, "")
Next j
End With
End Sub
页:
[1]