Sub 删除对象删除行列取消合并()
Application.Calculation = xlCalculationAutomati
Dim oWK As Worksheet
Dim oSP As Shape
'遍历所有工作表
For Each oWK In Excel.ThisWorkbook.Sheets
'遍历所有图形对象
For Each oSP In oWK.Shapes
oSP.Delete
Next
Columns("C:F").Select
Selection.Delete Shift:=xlToLeft
Next
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Rows("1:1").Select
Selection.Delete Shift:=xlToLeft
Range("A:A").UnMerge
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Sub 剪切()
Range("A1:A100").Select
Selection.Cut
End Sub
Sub 选择()
Call Worksheets("Sheet5").Select
For Each cell In Sheet5.Columns(5).Cells
If IsEmpty(cell) = True Then cell.Select: Exit For
Next
End Sub
Sub 粘贴()
如何在上方 Sub 选择()中所选择的单元格中粘贴
End Sub
相似问题