Vlookup VBA失败

Question

所以我在工作中使用这个代码，当我使用我的代码时，它只返回vlookup的第一个值，第二个不在表上，所以它不会给我除桌面上的下一个之外的任何东西都不会出现。

这是我的代码

public byte[] ImageToByte(string imageLocation)
{
    byte[] imageData = null;
    FileInfo fileInfo = new FileInfo(imageLocation);
    long imageFileLength = fileInfo.Length;
    FileStream fs = new FileStream(imageLocation, FileMode.Open, FileAccess.Read);
    BinaryReader br = new BinaryReader(fs);
    imageData = br.ReadBytes((int)imageFileLength);
    return imageData;
}

请帮助我！

Answer 1

首先，我会使用Option Explicit。其次，由于On Error Resume Next，你错过了MsExcel在宏执行期间给你的很多消息。特定备注清单：

• 为了使用Tagg作为范围，我必须使用Set：
  Dim Tagg as Range
Set Tagg = Sheet1.Range("E3:N190")
• 按Application.WorksheetFunction.VLookup替换Application.VLookup将在您的单元格中返回Error 8888之类的文字，而不是停止执行。
• 我不明白Dept_Row = Dept_Clm + 1，也许是Dept_Row = Dept_Row + 1？