excel - 将多个值插入多个不同的单元格

Question

我有以下代码，它使用相关值更新相关单元格。尽管只有 11 个，但我想知道是否有更好的方法，目的是帮助加快代码速度，并防止需要更新 000 个单元格。

Range("E1").Value = "Export Date"
Range("G1").Value = "Amended Start Date"
Range("H1").Value = "Ticket Age (Working Days)"
Range("J1").Value = "Overdue (1=Yes, 0=No)"
Range("U1").Value = "TicketEntity1"
Range("V1").Value = "TicketEntity2"
Range("W1").Value = "TicketEntity3"
Range("X1").Value = "TicketEntity4"
Range("Y1").Value = "TicketEntity5"
Range("Z1").Value = "TicketEntity6"

标签： excelvbaperformancecell

Answer 1

Sub Test()

Dim CurrentColumn As Long
Dim i As Long

CurrentColumn = 20

With wsTest
    For i = 1 To 5 '<= Use the correct number according your requirements
        .Cells(1, CurrentColumn + 1).Value = "TicketEntity" & i
        CurrentColumn = CurrentColumn + 1
    Next i
End With

End Sub