[已解决]VBA 排列抓取优化

lotgot

各位老师好，我最近在弄一个Excel vba 的自动排版 可是除了些问题请问老师们可以帮忙看看或者优化吗～ 代码如下：

1. 'collection 整理排版
   
2.         Sheets("Query").Select
   
3.         Columns(A).Select  '选择A列 <--------------这边开始就报错了，我是几个部门的vba合起来运行的
   
4.         Selection.Cut
   
5.         Range("U1").Select
   
6.         ActiveSheet.Paste
   
7.         Columns("E:E").Select
   
8.         Selection.Cut
   
9.         Columns("V:V").Select
   
10.         ActiveSheet.Paste
    
11.         Columns("E:E").Select
    
12.         Selection.Delete Shift:=xlToLeft
    
13.    
    
14.     'auto filter
    
15.     Rows("1:1").Select
    
16.     Selection.AutoFilter
    
17.     ActiveSheet.Range("$A$1:$U$11946").AutoFilter Field:=7, Criteria1:= _
    
18.         "Customer Deposit"
    
19.    
    
20.     'copy to new sheet
    
21.    
    
22.     Range("A1:U1", Selection.End(xlDown)).Select
    
23.     Selection.Copy
    
24.     Sheets.Add After:=ActiveSheet
    
25.     ActiveSheet.Paste
    
26.     ActiveSheet.Name = "Collection customer deposit"

复制代码

求老师们协助～～ 谢谢了

最佳答案

月排行榜 / 总排行榜

grf1973

2016-12-15 12:56

Columns(A).Select  '选择A列 改为

Columns(1).Select   
或者
Columns("A").Select  

跳转到最佳答案楼层

grf1973

上附件。

grf1973

Columns(A).Select  '选择A列 改为

Columns(1).Select   
或者
Columns("A").Select  

lotgot

grf1973 发表于 2016-12-15 12:56
Columns(A).Select  '选择A列 改为

Columns(1).Select   

这个就OK了～非常感谢啦