Excel中的vba编程.

[zhaobov]

我遇到这样的一个问题在excel中有vba实现:
例子:在a列中有 1,2,3,4,5,6,7,8,9个数字,
在b列中有1,2,4这3个数字.
我想做的是,一个两重的循环,实现看看b列中的数字,在a列中有没有.
该如何写呢?

[forvba]

用这个方法试试

Sub test()
Dim ra As Integer, rb As Integer
'声明第一列和第二列的行号变量

Dim x As Integer

For ra = 1 To 9
For rb = 1 To 3

If Cells(rb, 2).Value = Cells(ra, 1).Value Then

x = Cells(rb, 2).Value

MsgBox ("b列中的数字" & Str(x) & " 在a列中有")

End If

Next rb
Next ra

End Sub

[luckii1]

dim i as integer,n as integer,j as integer
n=9
for i=1 to 3
for j=1 to n
if sheet.range("B" & i & "B" & i ).value= sheet.range("A" & J & "A" & J ).value then
msgbox "有"

endif

next j
next i