vba删除代码怎么写 _删除

1. 如何用VBA代码删除编写代码的模块你是想给别人一份没有宏的文件，那么换个思路，代码如下：
Sub test()
ThisWorkbook.Sheets.Copy
Sheets.Select
'Cells.Copy
'Cells.PasteSpecial Paste:=xlPasteValues
'Application.CutCopyMode = False
'Sheets(1).Select
ActiveWorkbook.SaveAs "tmp.xls"
ActiveWorkbook.Close
End Sub
去掉的部分代码可以将公式变为数值（需要的话，你再去掉'）。
2. excel vba,为什么写了vba代码,删除行的时候,提示这个,如图, VBA删除行
通常是从下往上查找目标值进行删除
这样才会不会误删
Sub test()
For i = 2000 To 1 step -1
If Range("AQ" & i).Value = "http://www.xuexi88.com/zhishi/0" or Range("AQ" & i).text = "#REF!" Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next
End Sub
3. 请教如何在VBA中写代码删除已知行号的行删除行的方法用错了，应该是：
Rows(rng.Row).Delete或者是：
rng.EntireRow.Delete
另外，在for循环中删除行是一个非常微妙的事情，因为当删除了一行以后，下一行将变成当前行，而NEXT命令之后，“下一行”就变成了被删除行之后的第二行，也就是会跳过一行。
因此，如果是For Each。Next这样的循环，就比较为难，建议另外用一个数组记录需要删除的行号，然后另外用一个循环进行删除操作。
或者是改用：
For r = 65536 to 1 Step -1从最后一行开始向上循环遍历，对于符合条件的行，用以下语句进行删除：
Rows(r).Delete题外话，为了提高程序效率，不要从第65536行开始循环，而是从有数据的最后一行开始：
For r = Range("A65536").End(xlUp).Row to 1 Step -1
4. excel VBA 怎么加删除代码 Sub test()
range("C3:D50000").clearcontents
For r = 3 To Range("A1").CurrentRegion.Rows.Count
URL = "http://XXXXXXX
With CreateObject("msxml2.xmlhttp")
.Open "GET", URL, False
.send
sp = Split(.responsetext, "~")
If UBound(sp) > 3 Then
Cells(r, 3).Value = http://www.xuexi88.com/zhishi/sp(3)
Cells(r, 4).Value = http://www.xuexi88.com/zhishi/Format(sp(30),"0000-00-00 00:00:00")
Else
Cells(r, 3).Value = "http://www.xuexi88.com/zhishi/错！"
End If
End With
Next
End Sub
5. VBA,怎么用代码删除 thisworkbook 里面的代码, 语句可以写，不过一般都会失败，因为默认是不允许访问VBA对象的，示例代码：
Set Wb = Nothing
MyPth = "xxx.xls"
Set Wb = GetObject(MyPth)
With Wb.VBProject.VBComponents.Item("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
End With
Wb.Close True
6. vba,表格写3个代码,删除代码,加入代码,统计红色字体的出现次数 Sub 删除（）Dim r As Integer, rng As RangeWith Sheet1 r = .Cells(.Rows.Count, 1).End(3).Row If r < 55 Then Exit Sub .Rows(r + 1).Clear .Rows(r).Clear r1 = .Cells(.Rows.Count, 1).End(3).Row For j = 10 To 48 For i = r1 To r1 - 10 Step -1 If Len(Cells(i, j).Value) > 0 Then If Not Cells(i, j).Comment Is Nothing Then Cells(r1 + 1, j) = Cells(i, j).Comment.Text Exit For Else Cells(r1 + 1, j) = 0 End If Else Cells(r1 + 1, j) = "" End If Next NextEnd WithEnd SubSub 增加（）Dim r As Integer, rng As RangeWith Sheet1 r = .Cells(.Rows.Count, 1).End(3).Row Sheet2.Rows(r + 1).Copy Sheet1.Rows(r + 1) r1 = .Cells(.Rows.Count, 1).End(3).Row For j = 10 To 48 For i = r1 To r1 - 10 Step -1 If Len(Cells(i, j).Value) > 0 Then If Not Cells(i, j).Comment Is Nothing Then Cells(r1 + 1, j) = Cells(i, j).Comment.Text Exit For Else Cells(r1 + 1, j) = 0 End If Else Cells(r1 + 1, j) = "" End If Next NextEnd WithEnd Sub 。
【vba删除代码怎么写】

文章插图