我用 VBA 编写的 Hlookup 程序有什么问题？

, sheets("sheet45").range("bh4:bs254"),i ",0)

已更改为。 , sheets("sheet45").range("bh4:bs254"),i, 0)

在VBA中，用方括号写红枣单元格，不要在变量上加引号（加引号变成字符串），不熟悉语言干扰方法。

i 是一个变量，不能用引号引号引起来。

for 语法也不正确。

执行时单元格（（i+3），72）

sheets("sheet45").cells((i + 3), 72) =, sheets("sheet45").range("bh4:bs254"),i , 0)

i = i + 1

loop

在 VBA 编程中，函数使用 WorksheetFunction 对象引用，后跟函数名称 excitation，然后添加一行来引用单元格以引用列的最大值：Mingdaimin。

sub usefunction()

dim myrange as range

set myrange = worksheets("sheet1").range("a1:c10")

answer =

msgbox answer

end sub

sheets("sheet45"或扒手）。cells((i+3),72)=,sheets("sheet45").range("bh4:bs254"),i",0)

在这句话中，衬衫穿的地方有两个地方是有问题的。

将其更改为以下内容以试用。

sheets("sheet45").cells((i+3),72)="bt4"),sheets("sheet45").range("今年春天 bh4：bs254"),i,0)

也许您在此处没有找到 vlookup 的相应值。

这是Excel自己的函数是无法实现的，ECCE的功能在多个工作表上是无能为力的，为了实现这个要求，你必须请懂VBA编程的大神帮忙写一个程序**才能实现。

private sub commandbutton1_click()dim i as integer

i = i + 1

if cells(1, 2) = , 1) then 'cell（1,2） 是 sheet1 还是 sheet2？ 这个细胞不需要循环吗？ cells（i，1） 此时，i=1，即 cells（1,1） 与你的 ** 一致吗？

sheets("sheet2").selectrange("b2:b5").

copy 'range("b2:b5"例如，无论是 sheet1 还是 sheet2，都需要用 ** 表示。

1).select

paste:=xlpastevalues, operation:=xlnone, skipblanks:=false, transpose:=true

end if

end sub

执行后，i=1 在 i=i+1 后不再重新执行，只判断一次。

我不明白你想要什么，我知道最大值，但你的产品名称在**，我是从**找到的？ 如果您在其他地区有与部件名称对应的值，请使用 vlookup 查找功能。

1.如何在Excel工作表中将**旋转90度，使原来的行变成一列，列变成一行。

答：您不需要 VBA！ 你不使用 VBA 吗？ 选择要旋转的**副本，单击要放置的位置，右键单击，有选择地粘贴，单击“移置”，就可以开始了！

2. Excel功能丰富强大，而VBA比较少见，VBA中可以参考Excel的功能吗？ 如何报价？

答：我个人不这么认为，但是在使用VBA的时候，我能用excel解决的问题很少，可以把两者互相使用，引用的地方引用，联系的时候联系，我就是这样做的，好像是可以解决的。 呵呵。

3.我没有遇到过这个问题，如果我想用新版本的excel重新安装它，我建议你也这样做。

你不需要半途而废，只是不要使用文本框，只需调用一个变量即可。