下标越界！！！！

[shg918]

http://www.officefans.net/cdb/viewthread.php?tid=34984&page=1&sid=ggRDeq#pid307390

Dim i, number As Integer

'思路是选取指定xls（工作簿）的指定sheet（工作表），在整个sheet（工作表）里对每行的h列赋值。值是和b列同名的文件名。
Sub test()

Workbooks("E:\jishu\图纸翻译检索.xls").Worksheets("sheet1").Activate

'Range("3:b,number:b").Select

For i = 3 To 100
Path = "e:\draw\" 把这行注释掉也没用
Cells(i, "k") = Path + Cells(i, "b") + ".tif"
Next i
End Sub

[gowowo]

改为
For i = 3 To 100
Cells(i, 8) = "e:\draw\" & Cells(i, 2) & ".tif"
Next i
'8 是h列,2 是b列

[沐NeMo]

cells(row , col)
row col 两个参数都应该是整数，不可以用 "k" or "b"
你的：Path + Cells(i, "b") + ".tif" 是否存在呢。