VBA : 변수 이름 배열

Question

하나의 "마스터"워크 시트에서 일련의 규칙을 기반으로 여러 다른 워크 시트까지 행을 복사하는 매크로가 있지만 모든 행이 모든 워크 시트에 복사되지는 않습니다. 그래서 다른 워크 시트의 각 행에 대해 "카운터"역할을하는 변수 집합을 사용하여 현재 행을 추적하고 주어진 워크 시트의 행을 덮어 쓸 수 있습니다. 이것은 다음과 유사한 많은 추악한 코드로 연결됩니다.

.Rows(material.Row).Copy Destination:=Worksheets("QM").Range("A" & QMCounter) 

나는 그것을 마스터 워크 시트, 의도 된 워크 시트 다음 워크 시트의 카운터 변수에서 행 번호 통과 어디 호출 할 수있는 하나의 하위에이를 수 있도록하고 싶습니다. 나는에 변수 이름의 문자열 값을 변환 한 다음

For i = 0 to Ubound(VarNameArray) 

    Counter = VarNameArray(i)   

    Call CopyRow(Material, DestWorksheet, Counter) 

Next i 

내 문제와 유사한 일을 할 수 있도록 내가하고 싶은 무엇

는 다른 카운터 변수 이름의 배열을 만드는 것입니다 VarNameArray(i)이 문자열 "QMCounter"가 아니고 변수 QMCounter이 될 수 있도록 실제 변수 이름. "마스터"워크 시트의 모든 행이 다른 모든 워크 시트에 복사되는 것은 아니기 때문에 각 카운터 변수의 값을 독립적으로 제어 할 수 있어야합니다. VBA로 가능합니까?

편집 :이 스프레드 시트의이 목표는 그 값, 10 "종속"워크 시트의 조합으로 행 복사를 기반으로 다음 "마스터"시트에 행 특정 셀 값을보고하는 것입니다. 예를 들어, "마스터"시트의 행 1은 하위 시트 9에만 복사 될 수 있지만 마스터 시트의 행 2는 하위 시트 1, 2, 3, 6, 7, 9 및 10에 복사 될 수 있습니다. 행 3은 다른 하위 시트 세트에 복사 될 수 있습니다. 그것은 모두 특정 세포의 가치에 달려 있는데, 나는 미리 모릅니다.

10 개의 하위 시트마다 현재 행을 추적하는 카운터 변수가 있으며 모든 시트를 해당 시트의 첫 번째 행에 계속 복사하지 않도록하십시오. Sheet1에서 10까지 그리고 Counter1부터 10까지, Sheet1과 Counter1은 10을 통해 링크됩니다. 따라서 마스터 시트에서 Sheet1로 행을 복사하고, 마스터 시트에서 Sheet1로 복사하는 경우에만 카운터 1을 증가시킵니다. 그러나 앞서 언급했듯이 행이 복사되는 특정 하위 시트는 런타임에 사용자가 채우는 특정 셀의 값에 따라 결정됩니다.

그래서 나는 깨끗하고보다 일반적인 뭔가,

코드의 99 %가 동일

.Rows(material.Row).Copy Destination:=Worksheets("Sheet1").Range("A" & Counter1) 
.Rows(material.Row).Copy Destination:=Worksheets("Sheet3").Range("A" & Counter3) 
.Rows(material.Row).Copy Destination:=Worksheets("Sheet4").Range("A" & Counter4) 

같은 코드의 매우 반복적 인 비트를 먹고 싶어. 방금 직접 배열을 사용할 수있는 변수 이름의 배열에 대한 필요가 없습니다

Answer 1

...

Dim Counters 
Counters = Array(1,2,3,4,5) 

For i = LBound(Counters) to Ubound(Counters) 

    CopyRow Material, DestWorksheet, Counters(i) 

Next i 

편집 : 당신은 그냥 기존의 아래에 새 행을 추가하는 경우 :

.Rows(material.Row).Copy _ 
    Destination:=Worksheets("Sheet1").Cells(Rows.Count,1).End(xlUp).offset(1,0) 

복사 된 행에 대해 항상 ColA에 값이있는 한 작동합니다.