求助：excel 删除行数据问题 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Software - 软件世界

求助：excel 删除行数据问题

求助：excel 删除行数据问题# Software - 软件世界

h*h2007-12-20 08:12

1 楼

2000 行数据，如果要多次删除间隔不一致的20行数据，例如要删除 10-29行，100-119
行，240- 259行等，请问有无简捷方法？谢谢。

h*h2007-12-20 08:12

2 楼

补充一下： excel 2003, 已知每段数据的起始行数，要删除此行及其以下19行数据。

119

【在 h**h 的大作中提到】

: 2000 行数据，如果要多次删除间隔不一致的20行数据，例如要删除 10-29行，100-119
: 行，240- 259行等，请问有无简捷方法？谢谢。

B*e2007-12-20 08:12

3 楼

use VBA

【在 h**h 的大作中提到】

: 补充一下： excel 2003, 已知每段数据的起始行数，要删除此行及其以下19行数据。
:
: 119

p*r2007-12-20 08:12

4 楼

Sub DelExcelRow(nRow As Long)
Rows(nRow & ":" & nRow).Select
Selection.Delete Shift:=xlUp
End Sub
Sub test()
DelExcelRow 4
End Sub

119

【在 h**h 的大作中提到】

: 2000 行数据，如果要多次删除间隔不一致的20行数据，例如要删除 10-29行，100-119
: 行，240- 259行等，请问有无简捷方法？谢谢。

f*y2007-12-20 08:12

5 楼

如果你会自己录制宏，录个空的宏，把下面代码加进去。
Sub DelRows()
'
' Delete Rows in Excel , Macro
'
'
Dim InitialRow(), nRow
InitialRow = Array(10, 100, 240) 'Edit or Add here
For Each nRow In InitialRow
Rows(nRow & ":" & nRow + 19).Select
Selection.Delete Shift:=xlUp
Next
End Sub

【在 h**h 的大作中提到】

: 补充一下： excel 2003, 已知每段数据的起始行数，要删除此行及其以下19行数据。
:
: 119

h*h2007-12-20 08:12

6 楼

Got it. Thanks a lot.

【在 f*****y 的大作中提到】

: 如果你会自己录制宏，录个空的宏，把下面代码加进去。
: Sub DelRows()
: '
: ' Delete Rows in Excel , Macro
: '
: '
: Dim InitialRow(), nRow
: InitialRow = Array(10, 100, 240) 'Edit or Add here
: For Each nRow In InitialRow
: Rows(nRow & ":" & nRow + 19).Select

B*e2007-12-20 08:12

7 楼

You have to consider that the row numbers will change after you delete the r
ows in the first round of the loop.
Here is my code:
Sub DelRows()
'
' Delete Rows in Excel , Macro
'
'
Dim InitialRow(), nRow
Dim DelRange As Range
InitialRow = Array(10, 100, 140) 'Edit or Add here
Set DelRange = Rows(InitialRow(0))
For Each nRow In InitialRow
Set DelRange = Application.Union(DelRange, Range(Rows(nRow), Rows(nR
ow + 19)))
Next
DelRange.Select
Selection.Dele

【在 f*****y 的大作中提到】

h*h2007-12-20 08:12

8 楼

运行了这个代码.从后向前删除。其中 InitialRow = Array(240,100,10)。结果显示出
错信息：Method 'Rows' of object'_ Global' failed. Debug 发现下列代码出错：
Set DelRange = Rows(InitialRow(0))。不知如何解决？谢谢。

r

【在 B*******e 的大作中提到】

: You have to consider that the row numbers will change after you delete the r
: ows in the first round of the loop.
: Here is my code:
: Sub DelRows()
: '
: ' Delete Rows in Excel , Macro
: '
: '
: Dim InitialRow(), nRow
: Dim DelRange As Range

h*h2007-12-20 08:12

9 楼

运行这段代码出错：Rows(nRow & ":" & nRow + 19).Select。从后向前删除数据。请
问如何解决？

【在 f*****y 的大作中提到】

B*e2007-12-20 08:12

10 楼

你在 Rows 前面加上 ActiveSheet. 试试。也就是改成（Fishboy 的code 应该也是这个
问题)：
Sub DelRows()
'
' Delete Rows in Excel , Macro
Dim InitialRow(), nRow
Dim DelRange As Range
InitialRow = Array(240, 100, 10) 'Edit or Add here
Set DelRange = ActiveSheet.Rows(InitialRow(0))
For Each nRow In InitialRow
Set DelRange = Union(DelRange, Range(ActiveSheet.Rows(nRow), ActiveS
heet.Rows(nRow + 19)))
Next
DelRange.Select
Selection.Delete Shift:=xlUp
End Sub

【在 h**h 的大作中提到】

: 运行了这个代码.从后向前删除。其中 InitialRow = Array(240,100,10)。结果显示出
: 错信息：Method 'Rows' of object'_ Global' failed. Debug 发现下列代码出错：
: Set DelRange = Rows(InitialRow(0))。不知如何解决？谢谢。
:
: r

h*h2007-12-20 08:12

11 楼

It works. Thanks a lot.

这个

【在 B*******e 的大作中提到】

: 你在 Rows 前面加上 ActiveSheet. 试试。也就是改成（Fishboy 的code 应该也是这个
: 问题)：
: Sub DelRows()
: '
: ' Delete Rows in Excel , Macro
: Dim InitialRow(), nRow
: Dim DelRange As Range
: InitialRow = Array(240, 100, 10) 'Edit or Add here
: Set DelRange = ActiveSheet.Rows(InitialRow(0))
: For Each nRow In InitialRow