如何在Excel VBA中复制带有#的超链接

Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range

Set wb = Workbooks.Open("文件路径") '替换为实际的文件路径
Set ws = wb.Worksheets("工作表名称") '替换为实际的工作表名称
Set rng = ws.Range("A1") '替换为实际的单元格范围

rng.Copy

ws.Range("B1").PasteSpecial xlPasteAll

Application.CutCopyMode = False

Sub CopyHyperlink()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    
    Set wb = Workbooks.Open("文件路径") '替换为实际的文件路径
    Set ws = wb.Worksheets("工作表名称") '替换为实际的工作表名称
    Set rng = ws.Range("A1") '替换为实际的单元格范围
    
    rng.Copy
    
    ws.Range("B1").PasteSpecial xlPasteAll
    
    Application.CutCopyMode = False
End Sub