返回列表 上一主題 發帖

[發問] 帶出非空白資料

數據源應避免用程式覆蓋一次, 只列出結果位置即可~~
若資料多且欄位多, 整個重新貼上就會拖慢速度.

Sub TEST_A1()
Dim Arr, T$, i&, j%
Arr = Range("J1:AC" & Cells(Rows.Count, 1).End(3).Row)
For i = 2 To UBound(Arr)
    For j = 1 To UBound(Arr, 2)
        T = Trim(T & " " & Trim(Arr(i, j)))
    Next j
    Arr(i - 1, 1) = Replace(T, " ", ","): T = ""
Next i
With [ad2].Resize(UBound(Arr) - 1)
     .NumberFormatLocal = "@"
     .Value = Arr
End With
End Sub

TOP

        靜思自在 : 不怕事多,只怕多事。
返回列表 上一主題