vba - 根据另一个单元格值将公式写入单元格

Question

我希望编写一个宏来为我完成一项非常重复的任务，但进入 VBA 比预期更难。当我有时间的时候我会学习如何为 Excel 编写宏，因为它看起来非常有用，但是我这周不能花 5 到 12 个小时。

也许这里有人可以帮忙!

我有一些遵循此模式的 Excel 文件:

Column C - Column D
--------------------
text     | (empty)
number   | (empty)
number   | (empty)
text     | (empty)
number   | (empty)
text     | (empty)
text     | (empty)
number   | (empty)
text     | (empty)
number   | (empty)

其中文本和数字随机交替出现数千个单元格。我需要 D 列来保存，当 C 列是数字时，与前一个数字的差值，否则必须保留空白:

Column C - Column D
--------------------
text     | (empty)
3        | (empty)
14       | (=C3-C2) : 11
text     | (empty)
16       | (=C5-C3) : 2
text     | (empty)
text     | (empty)
21       | (=C8-C5) : 5
22       | (=C9-C8) : 1

所以算法是:

var previousNumberCell
var i = 1

for all (selected) cells/rows 
 if (Row(i).column(C) holds number) {
   Row(i).column(D).value = "=C"+i+"-"C"+previousNumberCell
   previousNumberCell = i;
 }
 i++

End

我不在乎第一个或最后一个单元格是否不起作用。

非常感谢您的帮助，或者您能否指出我在哪里可以找到此问题的答案。

编辑:这是问题的简化版本，有两件事我不知道如何使用 Excel 宏:选择一个单元格，并判断单元格是否是数字...记录下来，数字单元格已从文本格式转换为数字格式。

Answer 1

试一下:

Sub MyMacro()
Dim rng as Range
Dim cl as Range
Dim lastNum as Range
Set rng = Range(Selection.Address) 'Make sure that your active SELECTION is correct before running the macro'

If Not rng.Columns.Count = 1 Then
    MsgBox "Please select only 1 column of data at a time.",vbCritical
    Exit SUb
Else:
    For each cl in rng
        If IsNumeric(cl.Value) Then
            If lastNum Is Nothing Then
                cl.Offset(0,1).Formula = "=" & cl.Address
            Else:
                cl.Offset(0,1).Formula = "=" & cl.Address & "-" & lastNum.Address

            End If
            set lastNum = cl
        End If
    Next
End If

End Sub