如何用vb删除excel 中的某一行某一列的数据 例如第三行第一列.求简易代码

Question

如题所述

Answer 1

Sub Macro1()

    Rows("3:3").Delete Shift:=xlUp '删除第3行,下面上移
    Columns("C:C").Delete Shift:=xlToLeft '删除C列,右边左移
End Sub

追问

不是把第三行都删除 只删除第三行第一列里的数据 ，第三行其它的数据还要用的

追答[a3].ClearContents'只删除数据,保留格式
[a3].delete'删除所有

追问

假如那个3是变量（我只是删除第一列里能被7整除的数
For i = 1 To 50
location = Cells(i, 1)
If location Mod 7 = 0 Then
[ai].Delete ///这里老是报错 ？？？？？

追答'上面的代码不知道对不对,
[ai].Delete '此句修改为下面的形式
cells(i,1).Delete'cells(行号,列号)

Answer 2

[a3].clear
或者
[A3]=""
或者
range("A3")=""
或者
range("A3").clear

Answer 3

cells(3,1)=""