Question

VBA中如何引用另一工作表中的单元格区域

当在公司名称的textbox中填好公司名后，通过点击sheets（“主页”）的第一个按纽，去sheets（"资料库"）中的A列查找，如果找到。提示，并复制该行的前8项到工作表"主页"的 B17:N500 区域。
问题：
1、如果in sheets（“主页”）中的 Range("B17：B500") 运行。没有问题。 但一写入， In Sheets("资料库").Range("A65565") 就运行不了。
2、如果找到该行，是否可以一起复制到sheets（“主页”）中的，B17:N500 间的单元格区域。谢谢。
按纽的代码如下。
Private Sub 公司查询_Click()
Dim rg As Range, k As Integer
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each rg In Sheets("资料库").Range("A65565")
If Me.TextBox1.Text <> "" And rg = Me.TextBox1.Text Then
Range(Cells(rg.Row, rg.Column), Cells(rg.Row, rg.Column + 7)).Select
k = rg.Row
MsgBox "你要查找的公司在资料库第" & k & "行"
Exit For
ElseIf rg.Row = 500 And rg <> Me.TextBox1.Text Then
MsgBox "没有找到该公司"
End If
Next rg
Application.EnableEvents = True Application.ScreenUpdating = True
End Sub





Answer 1

1.商品表1,看有商品代号

2.商品表2,看也商品代号

3.把商品表2中的其它两个分类"标题"栏目复制到商品表1中.

4.接着下面用公式引用.

在商品表1中选中单元格,再点击上面的fx,选择全部,找到vlookup.点确定

5.关于Vlookup函数内容解析：

Lookup_value“唯一值”为需要在数组第一列中查找作参考的关系数值，它可以是数值或文字符串。比如:举例中的商品代码列，一般是第一列的数值，作为唯一数据参考而用的。（本表格中）
Table_array“区域”：数值区域，如“A:D”，就是您所有想引用过来的数据（想要引用数据的表格）

Col_index_unm“列序号”：引用区域值里面的第一列，比如从A到D共有4列，我想引用B列数值过来，那么就选择2，因为B列在区域的第二列，其它也是这么推算Range_lookup“逻辑值”：一般填TRUE或FALSE。指函数 VLOOKUP 返回时是精确匹配还还是近似匹配。 通常都是写false。

第一个单元格引用成功后，就往下拉（当单元格最右下角变实心，再往下拉，意思与上如同。）

6.另一列的品牌也是照着上面的方法,重复第4与第5步,也可以直接插入复制第前一列的粘贴操作.只是需要把那个第三个数值的,第二列2改成第三列3..完成再把公式拉下来.

7.展现的效果就是如图下,结合了两个表格的数据.

Answer 2

改为
r= Sheets("资料库").Range("A65565").end(xlUp).row
For Each rg In Sheets("资料库").Range("A2:A" & r)
......

试试

追问

还是一样。亲。麻烦看看。

追答

写错了，2003版没有65565，最多只到65536