[已解决]如何用代码提取各工作表中最后一列数据

阿瑛

附件 提取最后一列数据附件.rar (34.84 KB, 下载次数: 17)

2013-12-18 17:38 上传

点击文件名下载附件   （97-03）
谢谢！

最佳答案

月排行榜 / 总排行榜

Zipall

2013-12-18 18:11

1. Sub test()
   
2.     Sheets(1).Select
   
3.     For i = 2 To Sheets.Count
   
4.         With Sheets(i)
   
5.             c = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
   
6.             .Columns(c).Copy Cells(1, i)
   
7.         End With
   
8.     Next
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

Zipall

1. Sub test()
   
2.     Sheets(1).Select
   
3.     For i = 2 To Sheets.Count
   
4.         With Sheets(i)
   
5.             c = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
   
6.             .Columns(c).Copy Cells(1, i)
   
7.         End With
   
8.     Next
   
9. End Sub
   

复制代码

CheryBTL

请测试：

1. Sub 汇总()
   
2.     Dim ar, re
   
3.     Dim i As Integer, j As Integer, Cnt As Integer
   
4.     ReDim re(1 To 99, 1 To Sheets.Count - 1)
   
5.     For i = 2 To Sheets.Count
   
6.         ar = Sheets(i).UsedRange
   
7.         Cnt = 0
   
8.         C = UBound(ar, 2)
   
9.         For j = 1 To UBound(ar)
   
10.             If ar(j, C) <> "" Then
    
11.                 Cnt = Cnt + 1
    
12.                 re(Cnt, i - 1) = ar(j, C)
    
13.             End If
    
14.         Next j
    
15.     Next i
    
16.     Sheets(1).[b1].Resize(UBound(re), Sheets.Count - 1) = re
    
17. End Sub
    

复制代码