/ / Nested kopēt / ielīmēt cilpa VBA nav cilpas pareizi - excel, vba

Nesēja kopija / ielīmēšanas cilpa VBA nepareizi - excel, vba

Zemāk ir mans kods:

Sub Pitchers()

For i = 1 To 30

Worksheets("Starting Pitchers Salary").Range("B" & (1 + i)).Copy
Worksheets("Pitcher Matchup Analysis").Paste
Destination = Worksheets("Pitcher Matchup Analysis").Range("B3")

For j = 1 To 9

Worksheets("Pitcher Matchup Analysis").Range("A" & (32 + j)).Copy
Worksheets("Batter Matchup Analysis").Range("B1").PasteSpecial xlPasteValues
Worksheets("Batter Matchup Analysis").Range("B88:AC88").Copy
Worksheets("Pitcher Matchup Analysis").Range("C" & (32 + j) & ":AD" & (32 + j)).PasteSpecial xlPasteValues

Next j

Worksheets("Pitcher Matchup Analysis").Range("A65:S65").Copy
Worksheets("Pitcher Comparison").Range("A" & (1 + i) & ":S" & (1 + i)).PasteSpecial xlPasteValues

Next i

End Sub

Viss papildus tālāk norādītajam darbojas pareizi

Worksheets("Starting Pitchers Salary").Range("B" & (1 + i)).Copy

Kad tas atveras, tas nenokrīt vienā šūnā. Pirmajā cilpā tas kopē šūnu B2 (kā tas ir nepieciešams), bet turpmākajās cilpās tas būtu kopēšanas šūna B3, B4 utt., Bet tas katru reizi veic B2. Jebkurš padoms šeit?

Atbildes:

0 atbildei Nr. 1

Worksheets("Pitcher Matchup Analysis").Paste

Destination = Worksheets("Pitcher Matchup Analysis").Range("B3")

Mainiet iepriekš minēto:

Worksheets("Pitcher Matchup Analysis").Paste _
Destination := Worksheets("Pitcher Matchup Analysis").Range("B3")

Saistītie jautājumi


Komentāri (0)

Pievieno komentāru