控制Excel单元格并将其写入其他单元格

要控制Excel单元格并将其写入其他单元格，可以使用VBA代码来实现。以下是一个示例代码：

Sub ControlAndWriteToCell()
    Dim ws As Worksheet
    Dim sourceCell As Range
    Dim destinationCell As Range
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置源单元格和目标单元格对象
    Set sourceCell = ws.Range("A1")
    Set destinationCell = ws.Range("B1")
    
    ' 控制源单元格的值
    sourceCell.Value = "Hello, World!"
    
    ' 将源单元格的值写入目标单元格
    destinationCell.Value = sourceCell.Value
End Sub

上述代码中，我们首先声明了一些变量来存储工作表、源单元格和目标单元格。然后，我们使用Set语句将这些变量设置为相应的对象。在这个示例中，我们假设要控制的源单元格是"A1"，目标单元格是"B1"。

接下来，我们使用sourceCell.Value来控制源单元格的值，将其设置为"Hello, World!"。然后，我们使用destinationCell.Value将源单元格的值写入目标单元格。

要运行这段代码，需要打开Excel的VBA编辑器，然后将代码复制粘贴到一个模块中。然后可以通过按下F5键或在VBA编辑器中点击运行按钮来执行代码。执行代码后，源单元格"A1"将包含"Hello, World!"，目标单元格"B1"也将包含相同的值。