是否可以使用vba从hyperlink将行剪切并粘贴到不同的工作表中？

Sub CopyRowFromHyperlink()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim hyperlinkCell As Range
    Dim hyperlinkAddress As String
    Dim sourceRow As Range
    Dim targetRow As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 获取超链接单元格
    Set hyperlinkCell = ActiveSheet.Hyperlinks(1).Range
    hyperlinkAddress = hyperlinkCell.Hyperlinks(1).Address
    
    ' 获取源行和目标行
    Set sourceRow = sourceSheet.Range(hyperlinkAddress).EntireRow
    Set targetRow = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow
    
    ' 将源行复制到目标行
    sourceRow.Copy targetRow
    
    ' 删除源行
    sourceRow.Delete
End Sub