office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

Excel VBA 数组批量赋值简单示例

2020-04-30 08:00:00
zstmtony
原创
12057
数组批量赋值比循环快。
使用数组批量赋值简单示例     

      Dim arrValue as Variant 
   arrValue = Array("张三", "李四", "王五", "赵六", "陈七", "tmtony") 
      ActiveSheet.Range("A1:F1").Value = arrValue  '注意 Range的大小要和数组的长度相同.
      ActiveSheet.Range("A1:F1").Font.Bold = True
分享