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

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"

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

Answer 2

您可以使用数组将其收紧以覆盖连续的单元格。

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

TicketEntryx系列也可以使用增量作为后缀标识符进行循环。