在字符串數組存儲頭VBA

Question

新建VBA，我試圖在片基本上查找列標題到另一個，如果匹配拷貝數據結束了...

有人告訴我，我可以存儲我的頭在一個字符串數組然後遍歷並比較標題與我的數組，以查看它們是否匹配。

ie: For each c In 
Sheet1.Range("A1:BA1").offset(rownumber -1) 

但我不確定這是什麼意思？如何將我的標題存儲在字符串數組中？對不起，如果這是一個超級基本問題。我搜索了它，並沒有發現任何解釋如何做到這一點或它意味着什麼。

我的項目：在Sheet1 研究數據。如果出現問題，我想單擊一個按鈕，該按鈕將僅將匹配的列數據複製到指定工作表中的新行。從那裏數據將被審查，然後另一個按鈕將數據導出到MS SQL表。

即：

Sheet1 
A  B  C  D E 
ID  CUR Region Amount Y/N 
1  USD  NA $54 Y 

Sheet2 
    A  B  C  D  E 
Region CUR Amount Type Misc 

所以，如果列E = y時，該行中所有相關的數據複製到一個新的工作表：

Sheet2 (output) 
    A  B  C  D  E 
Region CUR Amount Type Misc 
    NA  USD $54 Null Null 

Sheet2中有列沒有在Sheet1中，反之亦然。 ..也是在每個表中列的順序不一樣。真正的工作表有很多列，每次刷新我的數據時，行數都會改變。我需要循環，直到Sheet1中的列A爲空。

Answer 1

如何將我的標題存儲在字符串數組中？

一個很實用的方法：

Dim hdlist As String 
Dim sep As String 
hdlist = "ID|CUR|Region|Amount|Y/N"  ' Change this line 
sep = "|" 
Dim hdnames() As String 
hdnames = Split(hdlist, sep, -1, vbBinaryCompare) 

然後你可以使用一個For循環遍歷數組。

Answer 2

下面是一段我認爲滿足您的需求的代碼。我認爲變量名稱是自解釋的，但如果沒有，請跟進。

碼搜索每個細胞起源片的標題行中，看它是否在目標片存在。如果是這樣，它複製相應的信息。

Dim wsOrigin As Worksheet 
Dim wsDest As Worksheet 
Dim nCopyRow As Long 
Dim nPasteRow As Long 
Dim rngFnd As Range 
Dim rngDestSearch As Range 
Dim cel As Range 

Const ORIGIN_ROW_HEADERS = 1 
Const DEST_ROW_HEADERS = 1 


Set wsOrigin = Sheets("Sheet1") 
Set wsDest = Sheets("Sheet2") 

nCopyRow = ActiveCell.Row 
nPasteRow = wsDest.Cells(Rows.Count, 1).End(xlUp).Row + 1 

Set rngDestSearch = Intersect(wsDest.UsedRange, wsDest.Rows(DEST_ROW_HEADERS)) 

For Each cel In Intersect(wsOrigin.UsedRange, wsOrigin.Rows(ORIGIN_ROW_HEADERS)) 
    On Error Resume Next 
     Set rngFnd = rngDestSearch.Find(cel.Value) 

     If rngFnd Is Nothing Then 
      'Do Nothing as Header Does not Exist 
     Else 
      wsDest.Cells(nPasteRow, rngFnd.Column).Value = wsOrigin.Cells(nCopyRow, cel.Column).Value 
     End If 
    On Error GoTo 0 

    Set rngFnd = Nothing 
Next cel