在字符串数组存储头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