从一个单元格获取值并将其集中在另一个工作表Vba Excel上

在VBA Excel中，可以使用以下代码从一个单元格获取值并将其集中在另一个工作表上：

Sub GetValueAndCopy()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceCell As Range
    Dim targetCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源单元格和目标单元格
    Set sourceCell = sourceSheet.Range("A1") ' 源单元格的地址
    Set targetCell = targetSheet.Range("B1") ' 目标单元格的地址
    
    ' 将源单元格的值复制到目标单元格
    targetCell.Value = sourceCell.Value
End Sub

上述代码中，首先通过Set关键字将源工作表和目标工作表分别赋值给sourceSheet和targetSheet变量。然后，使用Range方法将源单元格和目标单元格分别赋值给sourceCell和targetCell变量。最后，将源单元格的值复制到目标单元格。

这个方法适用于在同一个工作簿中的不同工作表之间复制单元格的值。如果要在不同的工作簿之间复制值，可以使用Workbooks.Open方法打开源工作簿，然后使用Workbook.Sheets属性获取源工作表。

这是一个简单的示例，你可以根据实际需求进行修改和扩展。在实际应用中，你可能需要处理更多的错误情况、循环复制多个单元格的值等。