excel - 同时写入两个单元格excel vba

Question

对于我正在编写的 VBA 应用程序，我需要将相同的数据写入两个不同范围的单元格中。我当然可以循环两次并写入数据，但我希望一次完成。

这是我正在做的一个例子(去除了很多复杂性)。

Sub WriteData()
    WriteOutDivision "Division1",10 
    WriteOutDivision "Division1",20 
End Sub

Private Sub WriteOutDivision(ByVal divisionName, ByVal rowNumber)
    Dim curSheet As Worksheet

    Set curSheet = Sheets("Company Scorecard")    

    With curSheet.Cells(rowNumber, 1)
         .value = divisionName
         .Font.Bold = True
         .InsertIndent 1
    End With
End Sub

我可以做些什么来同时写入第 10 行第 1 列和第 20 行第 1 列？

Answer 1

您可以定义一个不连续的范围并更改该范围的属性。例如:

Dim curSheet As Worksheet
Dim rngSpecial As Range

Set curSheet = Sheets("Company Scorecard")
Set rngSpecial = curSheet.Range("A1,A3")
rngSpecial.Value = "Whatever"

将在 A1 和 A3 中写“随便”。