如何把所有工作表中固定列全部复制到汇总表中

Sc2022

就是将前面的几个表的固定列(A列），提取出来，到汇总表，要选择性粘贴为数值的，

前面的表有些是公式，有些是数值

Sc2022

就简单的用代码搞出来的是复制带有公式的，不知道怎么复制数值的出来

ykcbf1100

参与一下。。

1. Sub ykcbf()  '//2024.1.26
   
2.     Dim brr(1 To 10000, 1 To 1)
   
3.     Set sh = Sheets("汇总")
   
4.     sh.[a2:a10000] = ""
   
5.     On Error Resume Next
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> sh.Name Then
   
8.             With sht
   
9.                 r = .Cells(Rows.Count, 1).End(3).Row
   
10.                 arr = .[a2].Resize(r, 1)
    
11.             End With
    
12.             With sh
    
13.                 r1 = .Cells(Rows.Count, 1).End(3).Offset(1).Row
    
14.                 .Cells(r1, 1).Resize(UBound(arr), 1) = arr
    
15.             End With
    
16.         End If
    
17.     Next
    
18.     MsgBox "OK！"
    
19. End Sub
    

复制代码

lhj5286

已写好，供楼主参考

ykcbf1100

附件供参考。。。

Sc2022

ykcbf1100 发表于 2024-1-26 10:49
参与一下。。

效果可以了。

Sc2022

ykcbf1100 发表于 2024-1-26 10:49
参与一下。。

如果我提取的列，是其他列。我代码修改那个数字？还是要全部修改？

gwjkkkkk

数组法吧。。。

ykcbf1100

.Cells(r1, 1)，这里面的1修改为其它列号，代码中有好几个地方需要修改。

Sc2022

ykcbf1100 发表于 2024-1-26 19:35
.Cells(r1, 1)，这里面的1修改为其它列号，代码中有好几个地方需要修改。

好的。我是列24的，修改好的代码可以发一下吗？