[已解决]RESIZE 的用法

张雄友

RESIZE 的用法，D1怎么空出一格？

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-21 19:53

张雄友 发表于 2013-9-21 19:44
不对啊，执行宏后，第二个对话框输入1时，会少了一个数。

这样可以不

跳转到最佳答案楼层

我心飞翔410

是不是这样

张雄友

我心飞翔410 发表于 2013-9-21 19:28
是不是这样

I = 0  就改了这一句就OK了？

张雄友

我心飞翔410 发表于 2013-9-21 19:28
是不是这样

不对啊，执行宏后，第二个对话框输入1时，会少了一个数。

我心飞翔410

张雄友 发表于 2013-9-21 19:44
不对啊，执行宏后，第二个对话框输入1时，会少了一个数。

这样可以不

hwc2ycy

1. Sub 行列转换()
   
2. 
   
3.     Dim Rng As Range, R As Range, Rt As Range, N&, Arr, I&
   
4. 
   
5.     On Error Resume Next
   
6. 
   
7.     Set Rng = Application.InputBox("请选择源数据区：", "数据行转列 步骤 1/3", IIf(TypeName(Selection) = "Range", Selection.Address, ""), , , , , 8)
   
8. 
   
9.     If Rng Is Nothing Then Exit Sub
   
10. 
    
11.     N = Int(Application.InputBox("请输入转换后的列数：", "数据行转列 步骤 2/3", 1, , , , 1))
    
12. 
    
13.     If N <= 0 Then Exit Sub
    
14. 
    
15.     Set R = Application.InputBox("请选择目标数据区：", "数据行转列 步骤 3/3", IIf(TypeName(Selection) = "Range", Selection.Address, ""), , , , , 8)
    
16. 
    
17.     If R Is Nothing Then Exit Sub
    
18. 
    
19.     ReDim Arr(1 To IIf(Int(Rng.Cells.Count / N) = Rng.Cells.Count / N, Rng.Cells.Count / N, Int(Rng.Cells.Count / N) + 1), 1 To N)
    
20. 
    
21.     I = 1
    
22. 
    
23.     For Each Rt In Rng
    
24.         If Rt <> "" Then
    
25.             Debug.Print IIf(N > 1, (I - 1) \ N + 1, I), (I - 1) Mod N + 1
    
26.             Arr(IIf(N > 1, (I - 1) \ N + 1, I), (I - 1) Mod N + 1) = Rt.Value
    
27.             I = I + 1
    
28.         End If
    
29.     Next Rt
    
30. 
    
31.     R(1).Resize(UBound(Arr), N) = Arr
    
32. 
    
33. End Sub

复制代码

hwc2ycy

这个分组的代码我之前也做过一个，不过是全数组的，忘了放哪了。

张雄友

hwc2ycy 发表于 2013-9-21 20:15
这个分组的代码我之前也做过一个，不过是全数组的，忘了放哪了。

这个比较快些， 但不能忽略空值。