VBA Code-Flow通过数据范围循环

我对VBA很陌生，需要帮助。 我已经build立了一个传统的input输出excel模型（电子表格计算在传统的Excel中，而不是VBA）。我有一系列200,000左右的数据点，我需要为一行中的8个单元格取一个值（replaceSheet 1单元格A1与Sheet2值单元格B1），拉结果，并循环通过剩余的200,000行。 有没有人可以指导我这样做？

我用下面的代码运行macros来反映第一行的replace。 我现在需要通过其余的列循环：

Sub PermutationResults2() ' ' PermutationResults2 Macro ' ' Sheets("Investments").Select Range("I9").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[20]C[-8]" Range("I10").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[19]C[-8]" Range("I11").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[18]C[-8]" Range("I12").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[17]C[-8]" Range("I13").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[16]C[-8]" Range("I14").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[15]C[-8]" Range("I15").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[14]C[-8]" Range("I16").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[13]C[-8]" Range("I17").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[12]C[-7]" Range("J9").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[20]C[-7]" Range("J10").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[19]C[-7]" Range("J11").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[18]C[-7]" Range("J12").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[17]C[-6]" Range("J13").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[16]C[-6]" Range("J14").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[15]C[-6]" Range("J15").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[14]C[-6]" Range("J16").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[13]C[-6]" Range("J17").Select ActiveCell.FormulaR1C1 = "=' Monte Carlo Data'!R[12]C[-5]" Range("J18").Select End Sub 

Answer 1

让我们开始吧

  Sub Demo Dim r as range dim t as range Set r = Sheets("Investments").Range("I9") 'point to your start cell set t = sheets(" Monte Carlo Data").range("I9") 'pointer to your destination Do Until r = "" 'keep going till you find a blank cell t = r 'copy value in r into t set r = r.offset(1,0) 'move pointer down one set t = t.offset(1,0) 'ditto for the other pointer Loop end sub 

现在玩，直到它做你想做的事情