값, 다른 열

Question

나는 다음과 같은 코드를 가지고 :

With WB2.Sheets("Sheet2") 'Add new book, headers, and formatting 
    .Range("A1").Value = "Display Name" 
    .Range("B1").Value = "Language" 
    .Range("C1").Value = "Locale" 
    .Range("D1").Value = "WorkType" 
    .Range("E1").Value = "EntryType" 
    .Range("F1").Value = "TitleInternalAlias" 
    .Range("G1").Value = "TitleDisplayUnlimited" 
    .Range("H1").Value = "LicenseRightsDescription" 
    .Range("I1").Value = "(License)Type" 
    .Range("J1").Value = "FormatProfile" 
    .Range("K1").Value = "Start" 
    .Range("L1").Value = "End" 
    .Range("M1").Value = "Description" 
    .Range("N1").Value = "Other Terms" 
    .Range("O1").Value = "Other Instructions" 
    .Range("P1").Value = "Content ID" 
    .Range("Q1").Value = "Product ID" 
    .Range("R1").Value = "Metadata" 
    .Range("S1").Value = "AltID" 
    .Range("T1").Value = "Release History (Original)" 
    .Range("U1").Value = "Release History (DVD)" 
    .Range("V1").Value = "Rental Duration" 
    .Range("W1").Value = "Watch Duration" 
    .Range("X1").Value = "WSP" 
    .Range("Y1").Value = "Tier" 
    .Range("Z1").Value = "SRP" 
    .Range("AA1").Value = "CaptionIncluded" 
    .Range("AB1").Value = "Caption Required" 
    .Range("AC1").Value = "Any" 
    .Range("AD1").Value = "Total Run Time (minutes)" 
    .Range("AE1").Value = "Total Run Time (mins.)" 
End With 

나는 모든 값이 동일한에 있기 때문에,이 코드를 작성하는 다른과 간단한 방법이 있다는 것을 알고 행이지만 다른 열. 아무도 몰라? 감사!!

Answer 1

이 같은 배열을 사용할 수 있습니다 :이 도움이

Sub sample2() 

Dim myarray 

myarray = Array("Display Name", "Language", "Locale", "WorkType", ... "Total Run Time (mins.)") 

Range("A1", Cells(1, UBound(myarray) + 1)).Value = myarray 

End Sub 

희망을.