汇总工作表内容

limonet

把Drr(1, i + j) = Sht.Name: Drr(2, i + j) = Arr(i, 1)
改成
if  i +j -1>0 and Drr(1, i +j -1)  <>Sht.Name than
Drr(1, i + j) = Sht.Name
else
Drr(1, i + j) = "‘’
end if
Drr(2, i + j) = Arr(i, 1)
上一个回复有问题，转置会报错。

prowl

limonet 发表于 2024-5-31 14:37
把Drr(1, i + j) = Sht.Name: Drr(2, i + j) = Arr(i, 1)
改成
if  i +j -1>0 and Drr(1, i +j -1)  Sh ...

感谢感谢老师

努力学习168

prowl 发表于 2024-6-1 09:46
感谢感谢老师

你好！插入空表修改后的代码有吗，能分享我份吗

prowl

努力学习168 发表于 2024-6-1 12:04
你好！插入空表修改后的代码有吗，能分享我份吗

Sub limonetArr()
    Dim Sht As Worksheet, Drr() As Variant, i%, j%, Arr As Variant
    For Each Sht In Worksheets
        If Sht.Name <> "汇总" Then
            Arr = Sht.UsedRange
            ReDim Preserve Drr(1 To 2, 1 To UBound(Arr) + j)
            For i = 1 To UBound(Arr)
              if  i +j -1>0 and Drr(1, i +j -1)  <>Sht.Name then
                    Drr(1, i + j) = Sht.Name
                    else
                      Drr(1, i + j) = "‘’
                    end if
                 Drr(2, i + j) = Arr(i, 1)
            Next i
            j = UBound(Drr, 2)
        End If
    Next Sht
    Range("A2").Resize(UBound(Drr, 2), 2) = Application.Transpose(Drr)
End Sub