如何从单元格中读取十进制数并复制具有该单元格编号所有行- EXCEL

Sub CopyRowsBasedOnDecimalValue()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim cell As Range
    Dim decimalValue As Double
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的源工作表名称
    Set destinationSheet = ThisWorkbook.Worksheets("Sheet2") ' 修改为实际的目标工作表名称
    
    ' 设置源范围（单元格）和目标范围（行）
    Set sourceRange = sourceSheet.Range("A1") ' 修改为实际的源单元格位置
    Set destinationRange = destinationSheet.Rows(1) ' 修改为实际的目标行位置
    
    ' 从源单元格中读取十进制数
    decimalValue = sourceRange.Value
    
    ' 遍历源工作表的每一行
    For Each cell In sourceSheet.UsedRange.Rows
        ' 检查当前行的指定单元格的值是否等于读取的十进制数
        If cell.Value = decimalValue Then
            ' 复制当前行到目标工作表的目标行
            cell.EntireRow.Copy destinationRange
            ' 将目标行向下移动一行，以便复制下一行
            Set destinationRange = destinationRange.Offset(1)
        End If
    Next cell
End Sub