Question

如何用VB删除EXCEL里单元格所在的行？

比如我想删除D2单元格所在的行，也就是第二行。但是A1和B1是合并，A2和B2也是合并的，A3和B3也是合并的。请问怎么操作，使原来的A3，B3，C3，D3向上提升，也就是说整个第二行都删除，第一行的数据保留。

Answer 1

Dim xapp As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet Set wb = xapp.Workbooks.Open(“Excel文件路径”)
Set ws = wb.Worksheets(“工作表索引号”)
ws.Activatews.Cells(2, 4).Select ‘这个就是D2单元格，选中
Selection.EntireRow.Delete '选中D2所在的行，删除 wb.Save
wb.Close (True)
xapp.Quit
Set ws = Nothing
Set wb = Nothing

Answer 2

选中最左边纵向的数字鼠标右键删除该行即可

Answer 3

Rows(2).Delete

或者：
range("A2").entirerow.delete

Answer 4

代码及注释如下：
sub main()
Dim ap As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet Set wb = ap.Workbooks.Open(“D:\123.xls”)'打开工作簿
Set ws = wb.Worksheets(“Sheet1”)'赋值工作表
ws.Activatews.Cells(2, 4).Select '选中D2所在单元格
Selection.EntireRow.Delete '选中D2所在的行，然后执行删除行
wb.save‘保存工作表
wb.close'关闭工作表
ap.Quit'退出Excel程序
Set ws = Nothing
Set wb = Nothing
end sub