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

Question

我的 Excel 2016 电子表格有 3 张工作表： Sheet1（选项卡自述文件） Sheet2（标签其他注释） Sheet3（选项卡超链接） 电子表格可能有多达 50,000 条记录。 B 列填充了不同的文件扩展名，但没有从 B:3 开始的点。并非 ColB 中的每个单元格都有扩展名。我的电子表格的前两行包含标题信息并在滚动时冻结以供查看。

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

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

当我运行附加的 VBA 时，我收到： 运行时错误'9：下标超出范围 在线 Worksheets("Sheet3").Range("B1:B8051").Select

此代码在单页电子表格上运行良好。我试图通过确保 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 就可以了。