表名标明

xing_chen

老师!有簿含多表，希望提取多表的2列并对2列标明源于表名。敬请老师赐教。谢谢

taller

tiger1976

Sub lll()

    Dim sht As Worksheet
    Dim arr
    Dim i As Integer
    Dim k As Integer
   
    For Each sht In Sheets
        If sht.Name <> "跟踪" And sht.Name <> "目录" Then
            arr = sht.Range("a1").CurrentRegion
            For i = 2 To UBound(arr)
                k = k + 1
                Sheets("跟踪").Cells(k + 1, 1) = k
                Sheets("跟踪").Cells(k + 1, 2) = arr(i, 4)
                Sheets("跟踪").Cells(k + 1, 3) = sht.Name
            Next
        End If
    Next

End Sub

ykcbf1100

附件请参考。。。

xing_chen

ykcbf1100 发表于 2023-3-9 08:48
附件请参考。。。

谢谢老师！运行如愿！

xing_chen

tiger1976 发表于 2023-3-9 08:15
Sub lll()

    Dim sht As Worksheet

谢谢老师！运行如愿

xing_chen

taller 发表于 2023-3-9 07:43

谢谢老师！发现1个问题，就是不能排序。见图。还清老师稍加修改，我尝试了加：号，但不行。