Одновременное изменение переменных для циклов VBA - PullRequest
Новая
       27

Одновременное изменение переменных для циклов VBA

0 голосов
/ 25 апреля 2018

Попытка изменить BRarr1 и BRarr2 на оба одновременно.Я знаю, что способ, которым он работает в настоящее время, изменится b, прежде чем изменится a.

Есть ли способ запустить что-то подобное, чтобы оба листа изменились перед тем, как приступить к выполнению кода?

напримерМне нужно запустить через BR01 и BR01A, затем запустить через BR5 и BR05A ... и т. Д. 

Sub BranchAnalysis()
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim a As Integer
Dim b As Integer
Dim BRarr1
Dim BRarr2

BRarr1 = Array("BR1", "BR5", "BR10", "BR11", "BR13", "BR18", "BR20", "BR21", 
                "BR22", "BR23", "BR25", "BR28", "BR29", "BR33", "BR35")
BRarr2 = Array("BR01A", "BR05A", "BR10A", "BR11A", "BR13A", "BR18A", 
              "BR20A", "BR21A", "BR22A", "BR23A", "BR25A", "BR28A", "BR29A", 
               "BR33A", "BR35A")

For a = LBound(BRarr1) To UBound(BRarr1)
    For b = LBound(BRarr2) To UBound(BRarr2)

    Set s1 = Workbooks("Primary to Network vBG2.xlsm").Worksheets("" & BRarr1(a) & "")
    Set s2 = Workbooks("Primary to Network vBG2.xlsm").Worksheets("" & BRarr2(b) & "")

    r1 = Workbooks("Primary to Network vBG2.xlsm").Worksheets("" & BRarr1(a) & "").UsedRange.Rows.count
    r2 = Workbooks("Primary to Network vBG2.xlsm").Worksheets("" & BRarr2(b) & "").UsedRange.Rows.count

    Dim i, j As Long

    'line items count
    Dim count1 As Long
    count1 = 0
    For j = 2 To r2
        For i = 2 To r1
        If s2.Cells(j, 1).Value = s1.Cells(i, 1).Value Then
           count1 = count1 + 1
           s2.Cells(j, 2).Value = count1
        Else
        End If
        Next i
        count1 = 0
    Next j

blah blah more code

    Next b
next a

1 Ответ

0 голосов
/ 25 апреля 2018

(на основе комментария Скотта)

Оба BRarr1 и BRarr2 имеют ubound = 14

Такиспользуйте только один цикл:

Замените: 

For a = LBound(BRarr1) To UBound(BRarr1)
    For b = LBound(BRarr2) To UBound(BRarr2)

на что-то вроде: 

 For ZZ = 0 to 14

и используйте ZZ везде, где вы использовали a или b

...