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 =

（图片来源网络，侵删）

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

（图片来源网络，侵删）

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

一维给二维赋值，参考实例如下：

for (i = 0; i < 10; i++)

{

（图片来源网络，侵删）

for (j = 0; j < max; j++)

{

scanf("%d", &a[j]);

}

strncpy(b[i], a， max);

//memcpy（b[i], a, max);

}

到此，以上就是小编对于usedrange和currentrange的问题就介绍到这了，希望这2点解答对大家有用。