Visual Basic 如果活动单元格包含文本“a”然后在右边的单元格中插入1

Question

任务是如果当前选定的单元格包含“a”，则在右侧的单元格中插入 1，并（因为下面的数据）在下面插入一个新行，并用 0 填充 1 下面的单元格。

因此，如果单元格包含一个“a”，然后当宏运行时它离开； 一个 1 0

1 位于 a 右侧的单元格中，1 位于新行中，位于 1 正下方的单元格中。

我当前拥有的代码是；

Sub ChangeAToCells()
Dim text As String
text = "a"
Dim text0 As String
text = "b"
Dim text1 As String
text = "0"
Dim text2 As String
text = "1"


If ActiveCell = text Then
ActiveCell.Formula = text1
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.Offset(1, 0).Select
ActiveCell.Formula = text2
End If



End Sub

问题很清楚，单元格的选择不起作用，我无法正确退出循环，

Answer 1

Sub ChangeAToCells()
If ActiveCell = "a" Then
   ActiveCell.Offset(0, 1) = 1
   ActiveCell.Offset(1).EntireRow.Insert
   ActiveCell.Offset(1, 1) = 0
End If
End Sub

Answer 2

您希望该代码做什么？首先为同一个字符串分配 4 个不同的值，然后将一个单元格与一个字符串进行比较，如果它们相同，则将两个单元格的值设置为两个尚未初始化的字符串的值。

我认为您的意思是同时初始化 text0、text1 和 text2，而不是初始化 text 四次。

我不明白你所说的“编辑循环”是什么意思。您的代码中没有循环。