VBA 批量移动对应的columns/列 ( 新问题 )

On_fire

VBA 批量移动对应的columns/列 ( 新问题)

*

Sheet3是源数据, 每26列是一个数据区域, 共4个区域

每个区域的最左1列是标题列,

每列都有不同的标示或格式!

*

代码的逻辑如下,

1.      由B列开始, 扩大最左的区域 ( 部分模拟在Sheet3(2) )

2.      顺序, 左到右, 移动不同区域内对应的右列到左边去 ( 部分模拟在Sheet3(2))

3.      注:要保留每列所有的标示或格式

*

有点难度,

请大神, 老师出手帮忙...谢谢!

吴中泉

铁杆求助的问题肯定有一定难度

chxw68

1. Sub test2()
   
2.     Dim i%, j%, r%
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     With ActiveSheet
   
6.         c = 104
   
7.         y = c
   
8.         For j = 2 To 26
   
9.             For k = 1 To 4
   
10.                 y = y + 1
    
11.                 .Columns((k - 1) * 26 + j).Copy .Cells(1, y)
    
12.             Next
    
13.         Next
    
14.         .Columns(2).Resize(, c - 1).Delete
    
15.     End With
    
16. End Sub
    

复制代码

chxw68

练练手。。。

On_fire

chxw68 发表于 2023-6-29 11:20
练练手。。。

厉害,
感谢褚老师…
好久没见啦, 看到您的代码有一份亲切感…!!!

chxw68

On_fire 发表于 2023-6-29 16:17
厉害,
感谢褚老师…
好久没见啦, 看到您的代码有一份亲切感…!!!

后面区域的列标题还需要吗？现在的结果是都删除了。

On_fire

chxw68 发表于 2023-6-30 07:36
后面区域的列标题还需要吗？现在的结果是都删除了。

褚老师,
早上好!
标题行如保留, 可以做到如截图这样?
另外,
每4列放在一起的数据, 请问可以如截图, 添一条分隔线?

chxw68

修改好了。

On_fire

chxw68 发表于 2023-6-30 19:46
修改好了。

褚老师,
晚上好! 再次感谢您…