office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Excel VBA 數組批量賦值簡單示例

2020-04-30 08:00:00
zstmtony
原創
120
數組批量賦值比循環快。
使用數組批量賦值簡單示例     

      Dim arrValue as Variant 
   arrValue = Array("張三", "李四", "王五", "趙六", "陳七", "tmtony") 
      ActiveSheet.Range("A1:F1").Value = arrValue  '註意 Range的大小要和數組的長度相衕.
      ActiveSheet.Range("A1:F1").Font.Bold = True
分享