替换同一工作表上日期的多个值

Question

我的Excel 2016电子表格有三张表：表1(选项卡自述文件)表2(选项卡其他注释)表3(选项卡HYPERLINKS)电子表格可能有50000条记录。列B填充了不同的文件扩展名，没有以B:3开头的点。不是ColB中的每个单元格都有扩展名。我的电子表格的前两行有标题信息，并在滚动时冻结以供查看。

我想将这些扩展名转换为描述性单词，例如，aac、amr、m4p、mp3、pcm转换为"音频"，gif、heic、jpg、png、tif转换为"图像"等。

我在同一个电子表格上有一个扩展名列表：扩展名是J3:J73，替换词是K3:K73。

运行附加的VBA时，会收到：运行时错误"9:下标超出范围"在线工作表("Sheet3")。范围("B1:B8051")。选择

此代码在单张电子表格上运行良好。我试图通过确保ColB中的所有单元格都有一个扩展字符串来修改电子表格，并在没有更改的情况下删除冻结，即相同的错误。

Sub Ext2FileType ()
For i = 3 To 73 'Rows with extension/word J3:K73
Worksheets("Sheet3").Range("B1:B8051").Select '8051 extensions to convert
Selection.Replace What:=Cells(i,10).Value, Replacement:=Cells(i, 11).Value, _
LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False
Next
Worksheets("Sheet3").Cells(1, 1).Select
End Sub

Answer 1

使用选项卡名称(HYPERLINKS)而不是"；真"；名称，即Sheet1起了作用。