数据合并VBA

nnsea

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