[已解决]根据编号删除数据（F:I列数据不被删除）

xm2012

根据编号删除数据（F:I列数据不被删除）

查询根据编号删除数据.rar (28.98 KB, 下载次数: 2)

2014-3-27 16:06 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-3-27 16:27

查询根据编号删除数据.rar (24.97 KB, 下载次数: 5)

2014-3-27 16:26 上传

点击文件名下载附件


Private Sub CommandButton2_Click()
yy = ListView1.SelectedItem
For I = Range("a65536").End(xlUp).Row To 1 Step -1
        If Cells(I, 1) = yy Then
            Rows(I).Delete
        End If
    Next I
End Sub


改为
Private Sub CommandButton2_Click()
yy = ListView1.SelectedItem
For I = Range("a65536").End(xlUp).Row To 1 Step -1
        If Cells(I, 1) = yy Then
         Range(Cells(I, 1), Cells(I, 4)).Delete Shift:=xlUp
        End If
    Next I
End Sub

跳转到最佳答案楼层

qh8600

查询根据编号删除数据.rar (24.97 KB, 下载次数: 5)

2014-3-27 16:26 上传

点击文件名下载附件


Private Sub CommandButton2_Click()
yy = ListView1.SelectedItem
For I = Range("a65536").End(xlUp).Row To 1 Step -1
        If Cells(I, 1) = yy Then
            Rows(I).Delete
        End If
    Next I
End Sub


改为
Private Sub CommandButton2_Click()
yy = ListView1.SelectedItem
For I = Range("a65536").End(xlUp).Row To 1 Step -1
        If Cells(I, 1) = yy Then
         Range(Cells(I, 1), Cells(I, 4)).Delete Shift:=xlUp
        End If
    Next I
End Sub

xm2012

qh8600 发表于 2014-3-27 16:27
Private Sub CommandButton2_Click()
yy = ListView1.SelectedItem
For I = Range("a65536").E ...

谢谢老师帮忙！
请老师帮我再看看这个问题，怎么实现：http://www.excelpx.com/thread-321788-1-1.html