vba一维数组赋予值,为什么到.Range("a2"&rw).Resize(UBound(arr3),1)=arr3就报错了？

excel中怎么按字体彩色提取？

　　制作一个VB程序来解决：　　Sub tqhs()Dim Myr%, x%, n%, aa, y%, col%, Myc%Application.ScreenUpdating = FalseMyr = [a65536].End(xlUp).RowFor x =

10余年的山西网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整山西建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联公司从事“山西网站设计”,“山西网站推广”以来，每个客户项目都认真落实执行。

1 To Myr col =

2 aa = Len(Cells(x, 1)) For y = 1 To aa If Cells(x, 1).Characters(y, 1).Font.ColorIndex =

3 Then n = 1 Cells(x, col) = Cells(x, col) & Cells(x, 1).Characters(y, 1).Text ElseIf n = 1 Then col = col + 1: n = 0 End If Next yNext xMyc = [a1].CurrentRegion.Columns.CountRange(Cells(1, 2), Cells(Myr, Myc)).Font.ColorIndex = 3Application.ScreenUpdating = TrueEnd Sub