复制某些条件下的单元格和删除列

Question

我是VBA主题的初学者，这就是我寻求帮助的原因。 我需要编写一个或多或少会像这样工作的宏：

1. 如果单元格A2为空，请不要让任何其他单元格填充。
2. 如果A2单元格中有内容，则：
3. 复制单元格B2（公式为）
4. 将B2单元格的值放入C2单元格
5. 删除B列，然后在文件中提交其他内容。

宏应该自动运行。从某种意义上说，让它在点击单元格A2的步骤中“应用”。作为一个初学者，我有一个问题。

Answer 1

您的描述含糊不清，但为了得到您所描述的内容：

 Public Sub Process()
     If Range("A2").Value <> "" Then
         Range("B2").Copy Range("C3")
         Range("B2").EntireColumn.Delete
     End If
 End Sub

修改

在工作表代码中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("A2").Address And Range("A2").Value <> "" Then             
         Range("C3").Value = Range("B2").Value
         Range("B2").EntireColumn.Delete
     End If
End Sub

我认为这是你能得到的最接近的。它不会在每次点击时触发，但在选择更改为A2时。