Question

VBA代码转换成VB代码的问题。

Sub test()
Dim rng As Range
For Each rng In Range("A1:G20")
If rng = "合计" Then rng.Select
Next
End Sub
请问这段代码如何转换成VB代码？十分感谢！

Answer 1

Dim oExcel
Dim oBook
Dim osheet

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open(App.Path & "\Excel.xls")
Set osheet = oBook.Worksheets(1)

For icol = 1 To 7
For irow = 1 To 20
If osheet.cells(irow, icol) = "合计" Then
MsgBox "OK"
End If
Next irow
Next icol

追问

如果查到这个数据，怎么删除？你给的数据能查到，但是没有选定，所以不知道该怎么删除，十分感谢。

追答

osheet.cells(irow, icol) =""

Answer 2

恐怕不行吧，你这个VBA涉及对单元格的引用，VB里好像没有。