Question

如果格式错误（请告诉我），

首发帖子如此道歉。提前感谢您的帮助。

尝试在VBA中找到以下Excel公式的等效项：

=INDEX([OPEN2.xlsx]Sheet1!$AH$1:$AH$35596,
MATCH(1,
(F2=[OPEN2.xlsx]Sheet1!$G$1:$G$35596)*
(G2=[OPEN2.xlsx]Sheet1!$I$1:$I$35596)*
(Q2=[OPEN2.xlsx]Sheet1!$V$1:$V$35596)*
(R2=[OPEN2.xlsx]Sheet1!$W$1:$W$35596)*
(S2=[OPEN2.xlsx]Sheet1!$X$1:$X$35596)*
(T2=[OPEN2.xlsx]Sheet1!$Y$1:$Y$35596)
,0))

我尝试了下面的内容（当然是在循环内部），但是接收到“匹配不匹配”＃39;错误。我把每个变量都调到了下面＆＃39;作为范围＆＃39;并声明每个范围（例如＆＃39;设置rmtd =范围（＆＃34; g1：g35596＆＃34;）＆＃39;）。

我应该声明为另一种变量类型吗？我可能做了一些基本错误 - 我如何使数据兼容/可比较，以便我不会收到类型错配＆＃39;？

Do While ActiveCell.Offset(0, -1).Value <> ""
ActiveCell.Value = Application.WorksheetFunction.Index(rmmxref, _
Application.WorksheetFunction.Match(1, _
(ActiveCell.Offset(0, -16) = rmtd) * _
(ActiveCell.Offset(0, -15) = rmvd) * _
(ActiveCell.Offset(0, -6) = rmsnoti) * _
(ActiveCell.Offset(0, -5) = rmsccy) * _
(ActiveCell.Offset(0, -4) = rmbnoti) * _
(ActiveCell.Offset(0, -3) = rmbccy) * _
(ActiveCell.Offset(0, -18) = rmcp), _
0))
     ActiveCell.Offset(1).Select
  Loop

＆＃39;类型不匹配＆＃39;索引匹配错误

0 个答案: