vba - 微软Excel : Macro to repeat a specific action multiple times

Question

我的任务是使用 Excel 操作大量数据，我听说过使用宏，但我不太懂代码。我记录了使用宏函数所需的步骤，但我需要添加更多行代码来利用循环并确保每次重复后前进 2。

我已在下面发布了我的步骤:

Range("A5:C5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A5").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+0.1"
Range("B7:C7").Select
Selection.Copy
Range("B5").Select
ActiveSheet.Paste
Application.CutCopyMode = False

基本上，选择 3 个单元格 (A5:C5) 插入单元格并将单元格下移。在新空的 A5 中使用公式将 0.1 添加到 A4，然后复制 B7:C7 中的值并粘贴到 B5:C5 中。

下图显示了我正在谈论的内容的前后对比，以使事情更加清晰。

之前

之后

下一步是:

Range("A7:C7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A7").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+0.1"
Range("B9:C9").Select
Selection.Copy
Range("B7").Select
ActiveSheet.Paste
Application.CutCopyMode = False

等等。

对此的任何帮助将不胜感激。如果我的问题仍然令人困惑或不清楚，我也深表歉意。

Answer 1

_[序言:]

嗨，我将为您提供一个答案，我试图对其进行评论以使其尽可能对初学者友好，但事实是:

我可以向您解释它是如何完成的，但除非您正确理解循环等基本编程方法，否则您永远不会正确理解为什么要这样做，而这只有您自己才能做到深入并充分理解

<小时/>

_{[逻辑上的差距:]}

Probably the biggest issue is, you have not specified what happens when your data reaches empty cells (what I mean under that) - if in your loop you were on row 10 (7, M, N) you would have no longer any letters to add, as the next 2 rows (12) no longer contain eny data.

鉴于此，我将循环修改为从第 n-2 行开始，以防止这种情况发生(这意味着在您的示例中它将在 6.1 处结束(或者更精确地开始)因为它是可以检索数据的最后一行)

一般来说，我建议不仅发布输入数据的图片，而且不要发布当前结果的图片，在这种情况下，正确解释的预期结果将更有利于我们的利益和理解，并且会为我节省很多这里的猜测。

<小时/>

_{[问题的理论部分:]}

我将通过一些有用的事实为您节省一些谷歌搜索时间。

1. 如果您希望重复执行特定操作，则应始终考虑利用 2 个(或 3 个，具体取决于您如何分类)循环 for 和 do 之一(当/直到)
2. 更好的是，如果您希望多次循环不同数量的操作，则应该使用过程 Sub 或函数 Function，这样您可以使用充当循环变量的参数。
3. 通常，在添加或删除行时，从下到上(从最后一个到第一个)循环很重要。为什么？因为如果您添加额外的行，它会打乱您的行顺序。

考虑到所有这些，过程本身可能看起来像这样:

<小时/>

_{[解决方案本身:]}

您可以每次对指定范围使用以下过程。

Option Explicit 'prevents typo. errors, undeclared variables and so on

Private Sub extra_row(ByVal rng As Range) 'declaration of procedure

 Dim i As Long
 ' we loop for the n-th - 2 row (last row - 2) to the pre-first (added) row.
 For i = (rng.Rows.Count + rng.Row - 2) To rng.Row + 1 Step -1
 'why the -2? ^ Because if you add the letters from next 2 rows,_
  the last 2 would have no to grab _
  eg. Row 10 and 11 in your original data would have no data under them to grab

 ' a bit harder section to comprehend, if it's the first data entry _
   we need to account for the fact that we have not added any extra rows yet_
   hence we also need to decrement the row from which we receive the data by 1 _
   it 's bit of difficult to word, i'd highly recommend debugging yourself _
   and seeing what happens with or without it
  Dim fp As Integer
    If (i - 2 = rng.Rows.Count) Then
      fp = 1
    Else
      fp = 0
    End If

    ' now we just add the extra rows where we can
    Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(i, 1) = Cells(i, 1).Offset(-1, 0) + 0.1 'we add 0.1 to cell one above
    Cells(i, 2) = Cells(i + 3 - fp, 2) ' similar case, with letters, but two below
    Cells(i, 3) = Cells(i + 3 - fp, 3) ' similar case, with letters, but two below
  Next i 'and we loop for every cell in our specified range

End Sub

例如。在您的情况下，您可以使用以下命令运行该过程:

Call extra_row(Range("A4:A11"))

<小时/>

_{[实际使用]}

虽然解决方案本身应该有效，但在现实世界的示例中，不使用特定范围来调用每个过程可能会更明智。特别是如果这意味着用户必须查看工作表、检查范围并手动计算行数。

这就是我们首先在这里创建一个过程的原因之一。因此，我在大多数编程语言中创建了一个类似于 main() 的过程，它检测最后一个事件行，并通过自动检测将该过程应用于您的数据范围。

所以最后，你的可能应该是这样的:

Option Explicit
Private Sub extra_row(ByVal rng as Range)
  '... code from the answer here
End Sub

Private Sub rundata()
    Dim lr As Long
    lr = Sheets("Your Sheet Name").Cells(Rows.Count, 1).End(xlUp).Row 
    'detects the last active (nonempty) row _
     rememeber to change the  Sheets("") to wherever your data is stored

    Dim mydata As Range
    Set mydata = Range("A4:A" & lr) 'under presumption your data always begins with A4

    Call extra_row(mydata)     
End Sub

现在，每当您运行(手动)或调用 run_data() 过程时，它都会自动检测范围并应用我们定义的过程。

<小时/>

_{[预期结果可视化和结束语:]}

我们从这个开始:

运行程序后:

现在我知道，这里似乎有很多新奇的概念，但事实是，一旦您认真尝试逐行理解代码，所有这些概念都相当容易。其中大部分是简单的数学运算。

如果您仍然无法理解此处的任何内容，请先进行自己的研究，然后在此处发表评论，或者更好的是，创建一个新问题(如果有必要)。

<小时/>

祝您编码之旅顺利! :)
Rawrplus