Вставить несколько значений в несколько разных ячеек

Question

У меня есть код ниже, который обновляет соответствующую ячейку с соответствующим значением.Несмотря на то, что их всего 11, мне было интересно, есть ли гораздо лучший способ помочь ускорить код, а также когда-нибудь возникнет необходимость обновить тысячи ячеек.

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 также может быть зациклена с приращением, используемым в качестве идентификатора суффикса.