<em>excel</em> vb 将A单元格数据加到B单元格中-excel vb输出,vb打开

如果你知复道图片的Name
可以,如名称是"Picture 1"
xlSheet.Shapes("Picture 1").delete
如果不知制道名称,知道在单元格百的位置度,譬如顶点位置在$B$3
可以循环判断后删除
For Each P In xlSheet.Shapes
If P.Name Like "Picture*" and P.TopLeftCell.Address="$B$3" Then P.Delete
Next

Private Sub CommandButton1_Click()
For i = 1 To [H65536].End(xlUp).Row
If Cells(i, 8) > 0 Then '8是度H列知，道7是G列
Cells(i, 7) = Cells(i, 8) + Cells(i, 7)
Cells(i, 8).ClearContents
End If
Next i
End Sub

你这是什么逻辑？截个图看看？