VBA 编写，把其余列的内容都剪切黏贴到A列下面

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.16
   
2.     Dim arr, brr(1 To 10000, 1 To 1)
   
3.     arr = [a1].CurrentRegion
   
4.     For x = 1 To 2
   
5.         For j = x To UBound(arr, 2) Step 2
   
6.             For i = 1 To UBound(arr)
   
7.                 If arr(i, j) <> Empty Then
   
8.                     m = m + 1
   
9.                     brr(m, 1) = arr(i, j)
   
10.                 End If
    
11.             Next
    
12.         Next
    
13.     Next
    
14.     [m1].Resize(m, 1) = brr
    
15. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

周某人就是我

无关岁月 发表于 2024-1-16 17:58

老师这个代码看着更精简，不知道pos里面"–1"是什么意思，–1列？不是7列吗？

无关岁月

周某人就是我 发表于 2024-1-16 21:55
老师这个代码看着更精简，不知道pos里面"–1"是什么意思，–1列？不是7列吗？

占个位，因为数组下标是从0开始，我又想让他从1开始，所以用一个不存在的列号占位，当然用100也可以

周某人就是我

无关岁月 发表于 2024-1-16 21:58
占个位，因为数组下标是从0开始，我又想让他从1开始，所以用一个不存在的列号占位，当然用100也可以

原来如此，受教了

周某人就是我

ykcbf1100 发表于 2024-1-16 19:29
参与一下。。。

  For x = 1 To 2
        For j = x To UBound(arr, 2) Step 2
小白不懂老师的这两句什么意思
For j = 1 To UBound(arr, 2)是否可行

ykcbf1100

周某人就是我 发表于 2024-1-16 22:34
For x = 1 To 2
        For j = x To UBound(arr, 2) Step 2
小白不懂老师的这两句什么意思

这二句不能改。
这是二个循环，外面的循环是用来控制循环二次，分别是1,3,5,7列和2,4,6,8列

周某人就是我

ykcbf1100 发表于 2024-1-17 07:14
这二句不能改。
这是二个循环，外面的循环是用来控制循环二次，分别是1,3,5,7列和2,4,6,8列

哦，受教了。我没仔细看他的要求，以为就是普通的混为一列