如何修改这个简单的VBA程序 新手上路 求高人指点

提示二义性是说你程序中有两个commandbutton1_click

你把袭枯手第败轮一行的commandbutton1_click或者中间的那个commandbutton1_click改成其他的名字：如拍嫌commandbutton2_click即可。

还有什么问题请直接Hi我

改成这样，应该可以了

Sub ss()

Dim rngOld As Range

Dim i As Integer

Dim j As Integer

Dim value1 As String

Dim value2 As String

Workbooks("工作卜皮簿1.xlsm").Activate '如果在执行该宏时已经该工作簿就是拦磨当前工作簿，可省略

value1 = Cells(2, 6).Value

For i = 13 To 20

If Cells(i, 19) <>"" And Cells(i + 1, 19) = "" Then

Set rngOld = Range("B13:S" &i)

End If

Next i

Workbooks("简弊斗工作簿2").Activate

For j = 1 To 40

value2 = Cells(j, 10).Value

If value1 = value2 Then

Dim c As Integer

For c = 1 To i - 12

ActiveSheet.Rows(j + 1).EntireRow.Insert Shift:=xlDown

Next

rngOld.Copy Destination:=Cells(j + 1, 6)

End If

Next j

End Sub

Sub check()

Dim i As Integer

Dim s As Integer

s = InputBox("请胡喊旅输入渗腊查找裤凳内容")

For i = 1 To 1000

If Cells(1, i) = s Then

MsgBox "找到" &i &"列 " &Cells(1, i)

Exit Sub

End If

Next

MsgBox "not find"

End Sub

---