Smaran's questions

我正在从互联网上学习在 VBA 中创建公式，我在 excel 校园里看到了 Jon 的这篇文章，他在那里教他为百分比变化创建公式。

但是，我无法理解代码的一部分，他在创建公式时使用了双引号和 & 符号。

sFormula = "=IFERROR((" & sNew & " - " & sOld & ")/" & sOld & ",0)"

有人可以告诉我为什么在 sNew 和 sOld 之间使用 & 符号，以及为什么不使用引号和 & 符号会导致代码失败？

完整编码如下——

Sub Percent_Change_Formula()
'Description: Creates a percentage change formula
'Source: https://www.excelcampus.com/vba/percentage-change-formulas-macro/

Dim rOld As Range
Dim rNew As Range
Dim sOld As String
Dim sNew As String
Dim sFormula As String


'End the macro on any input errors
'or if the user hits Cancel in the InputBox
On Error GoTo ErrExit

'Prompt the user to select the cells
Set rNew = Application.InputBox( _
        "Select the cell that contains the NEW number", _
        "Select New Cell", Type:=8)
Set rOld = Application.InputBox( _
        "Select the cell that contains the OLD number", _
        "Select Old Cell", Type:=8)

'Get the cell addresses for the formula - relative references
sNew = rNew.Address(False, False)
sOld = rOld.Address(False, False)
    
'Create the formula
sFormula = "=IFERROR((" & sNew & " - " & sOld & ")/" & sOld & ",0)"

'Create the formula in the activecell
ActiveCell.Formula = sFormula

ErrExit:
    
End Sub

我想创建一个循环，将范围 A6 复制到 B 2365 并将其粘贴到前一个范围下方 18 次，即我想将它粘贴到前一个范围的正下方，所以如果第一个范围以行号 2365 结尾，我想要复制的要粘贴到第 2366 行的范围。

我做了一个宏录制并想出了以下代码，但这只发生了 1 次，我想要一个可以重复此任务 18 次的代码。

Range("A6:B2365").Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15