excel - 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四次。

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