老师帮忙一下用vba提取表头通用代码

qdchyq

用vba提取表头，sheet1表头、sheet2表头合并成sheet3样式，谢谢老师帮忙

shiruiqiang

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.27
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Set sh = ThisWorkbook.Sheets("结果")
   
4.     For Each sht In Sheets
   
5.         If sht.Name <> sh.Name Then
   
6.             With sht
   
7.                 c = .UsedRange.Columns.Count
   
8.                 For j = 1 To c
   
9.                     s = .Cells(1, j)
   
10.                     d(s) = ""
    
11.                 Next
    
12.             End With
    
13.         End If
    
14.     Next
    
15.     sh.UsedRange.ClearContents
    
16.     sh.[a1].Resize(1, d.Count) = d.keys
    
17. End Sub
    
18. 
    

复制代码

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br(), i&, j&, r&
   
    For i = 1 To 2
        ar = Sheets(i).[A1].CurrentRegion.Value
        For j = 1 To UBound(ar, 2)
            If InStr("," & Join(br, ",") & ",", "," & ar(1, j) & ",") = False Then
                r = r + 1
                ReDim Preserve br(1 To r)
                br(r) = ar(1, j)
            End If
        Next j
   
    Next i
   
    Rows(1).Clear
    [A1].Resize(, UBound(br)) = br
    Beep
End Sub

qdchyq

谢谢老师们，感谢帮忙

qdchyq

ykcbf1100 发表于 2024-3-27 21:51
参与一下。。。

谢谢老师帮忙

qdchyq

gwjkkkkk 发表于 2024-3-27 22:42
Option Explicit
Sub TEST1()
    Dim ar, br(), i&, j&, r&

谢谢老师帮忙

qdchyq

ykcbf1100 发表于 2024-3-27 21:51
参与一下。。。

老师如果是两行呢

ykcbf1100

qdchyq 发表于 2024-3-28 11:18
老师如果是两行呢

上附件看看。