- 博客(4)
- 收藏
- 关注
RSS订阅转载 汇总到同一个表格
Sub test() Dim rg As Range Dim sh As Worksheet Dim irow% Cells.Clear For Each sh In Worksheets With Sheets("汇总") If sh.Name <> "汇总" Then Set rg =
2018-02-02 10:18:06
404
转载 多工作簿数据提取（简单版）
Option ExplicitSub 多工作簿取数()Dim Fs$, MyP$, Wb As Workbook, kMyP = ThisWorkbook.Path & "\" '获取写代码的工作簿所在的路径Fs = Dir(MyP) 'dir函数可以获取文件夹下的文件，第1次要整个路径DoIf Fs <> "汇总表.xls" Then '判断目的使用汇总表不参入Set Wb = W
2018-02-02 10:16:53
7804
1
转载 提取不同工作簿中的同一列数据
Sub demo() Dim ar, cr, Str As String, FilePath As String, i As Integer, j As Integer, n As Long Application.DisplayAlerts = False Application.ScreenUpdating = False FilePath = ThisWork
2018-02-02 10:16:06
4871
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人