工作薄批量录入数据 请老师们帮下

~^o^~___^o^y

同一文件夹下多个工作薄，需要在表格数据最下面一行第一列录入 “合计”   请老师们帮下忙吧，谢谢。

~^o^~___^o^y

朱荣兴 发表于 2018-7-29 10:49
Sub cz()
Application.ScreenUpdating = False '禁止屏幕筛选，提高代码运行速度
ReDim arr(1 To 10000,  ...

r = UBound(brr)
.Cells(r, 1) = "合计"
条件判断用的是数组的上边界来定位最末行，如果有虚空行就不行了，

条件应该是“有数据的最末行的第一列”
怎么改一下代码呢？

alstar

Sub cz()
Application.ScreenUpdating = False '禁止屏幕筛选，提高代码运行速度
ReDim arr(1 To 10000, 1 To 8) '定义数组arr，用于存放汇总数据
f = Dir(ThisWorkbook.Path & "\*.xls*") '建立文件目录到变量f
    Do While f <> "" '在不为空的文件目录中循环
        If f <> ThisWorkbook.Name Then '如果不是代码所在工作簿文件
           Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f) '打开文件，便于获取数据，汇总
            m = m + 1 '记录打开文件的个数
                With wb.Worksheets(1) '在代码打开的文件的第一个工作表内循环
                    brr = .Range("a1", Cells(Rows.Count, "a").End(xlUp)) '把代码打开的文件的第一个工作表内的有效 数据装入数组brr，便于汇总
                      r = UBound(brr)
                     .Cells(r + 1, 1) = "合计"
                End With
             wb.Close True '关闭代码打开的文件，不保存，如果为true则是关闭的同时保存文件
        End If '结束条件判断
    f = Dir '寻找一下个文件
    Loop '结束循环
MsgBox "操作了" & m & "个文件"  '信息提示框
Application.ScreenUpdating = True '恢复屏幕刷新
End Sub

alstar

~^o^~___^o^y 发表于 2018-7-29 13:21
r = UBound(brr)
.Cells(r, 1) = "合计"
条件判断用的是数组的上边界来定位最末行，如果有虚空行就不行 ...

                    brr = .Range("a1", Cells(Rows.Count, "a").End(xlUp))
                      r = UBound(brr) + 1
                     .Cells(r, 1) = "合计"
不用usedrange装入数组。用查找最后一个有数据的行+1试试。