VBA如何从合并的单元格中提取数据连续排列?
发布网友
发布时间:2024-10-09 17:27
我来回答
共1个回答
热心网友
时间:2024-10-14 13:56
Sub aaa()
Dim arr, i As Integer, arr1(1 To 10000, 1 To 1)
For Each Rng In [b3:j6]
If Rng <> "" Then
K = K + 1
arr1(K, 1) = Rng
End If
Next
[L4].Resize(1, K) = Application.Transpose(arr1)
End Sub