У меня есть приведенный ниже код, который обновляет соответствующую ячейку с соответствующим значением. Несмотря на то, что их всего 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"
1
Jamestm_PRE 23 Окт 2018 в 14:36

2 ответа

Лучший ответ
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
3
Error 1004 23 Окт 2018 в 11:45

Вы можете сжать его массивами, чтобы покрыть смежные ячейки.

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

1
user4039065user4039065 23 Окт 2018 в 11:43
52948049