关于excel vba的提问

来源:百度知道 编辑:UC知道 时间:2024/06/21 07:23:50
我想实现这个功能在A1:B10这个区域如果A列的某个单元格不为空则就在相应的b列加一个按钮

如A1不为空则在B1添加一个按钮

运行下面的宏
结果显示在第一张表上

Sub Macro1()
For i = 1 To 10
If Cells(i, 1) <> "" Then
Cells(i, 2).Activate
Worksheets(1).OLEObjects.Add ClassType:="Forms.CommandButton.1"
End If
Next
End Sub