[已解决]用VBA数列把A列分成几列 保存DEF列

laoau138

用VBA数列把A列分成几列 保存DEF列

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2017-6-9 12:54

1. Sub fenlie()
   
2. Dim rg
   
3. Set rg = Range("a1", Range("a65535").End(xlUp))
   
4. i = Range("a65535").End(xlUp).Row - Application.WorksheetFunction.CountA(rg) + 1
   
5. For n = 1 To i
   
6.     If n = 1 Then
   
7.         ro = 1
   
8.     Else
   
9.         ro = Cells(ro, 1).End(xlDown).Row + 2
   
10.     End If
    
11.     arr = Range(Cells(ro, 1), Cells(ro, 1).End(xlDown))
    
12.     Cells(1, n + 3).Resize(UBound(arr)) = arr
    
13. Next
    
14. End Sub

复制代码

跳转到最佳答案楼层

yorkchenshunan

1. Sub fenlie()
   
2. Dim rg
   
3. Set rg = Range("a1", Range("a65535").End(xlUp))
   
4. i = Range("a65535").End(xlUp).Row - Application.WorksheetFunction.CountA(rg) + 1
   
5. For n = 1 To i
   
6.     If n = 1 Then
   
7.         ro = 1
   
8.     Else
   
9.         ro = Cells(ro, 1).End(xlDown).Row + 2
   
10.     End If
    
11.     arr = Range(Cells(ro, 1), Cells(ro, 1).End(xlDown))
    
12.     Cells(1, n + 3).Resize(UBound(arr)) = arr
    
13. Next
    
14. End Sub

复制代码

池盛龙

Sub 提取()
Dim arr
arr = Range(Cells(1, "A"), Cells(Range("a65536").End(xlUp).Row, "A"))
a = 4
c = 1
    For x = 1 To UBound(arr)
If arr(x, 1) <> "" Then
   Cells(c, a) = arr(x, 1)
   c = c + 1
Else
   a = a + 1
   c = 1
End If
   Next
End Sub

laoau138

yorkchenshunan 发表于 2017-6-9 12:54

http://www.excelpx.com/thread-430950-1-1.html

VBA数组行与行比较 不用index方法如何改写  

laoau138

池盛龙 发表于 2017-6-9 13:17
Sub 提取()
Dim arr
arr = Range(Cells(1, "A"), Cells(Range("a65536").End(xlUp).Row, "A"))

http://www.excelpx.com/thread-430950-1-1.html

VBA数组行与行比较 不用index方法如何改写  

laoau138

yorkchenshunan 发表于 2017-6-9 12:54

大侠，如果这个用动态数组，怎样写