代码之家 › 专栏 › 技术社区 › mjac

范围内存溢出问题

range vba excel arrays

mjac · 技术社区 · 2 年前

正在尝试运行一个简单的宏,将某些列从一个工作表复制/粘贴到另一工作表。当我只使用几个列时,它工作得很好,但当我添加所有需要的列时,我会得到一个错误。我认为我的语法是正确的,但我听说这可能是范围/剪贴板内存问题。

Sub CopyValuesDiff()
Dim sourceWs1, dstWsDiff1, As Worksheet, dtToday As Date

dtToday = Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
Set sourceWs1 = Sheets("Size_1")
Set dstWsDiff1 = Sheets("Diff_1")

sourceWs1.Range("H6:H300, J6:J300, L6:L300, N6:N300, AF6:AF300, AH6:AH300, AJ6:AJ300," & _
"AL6:AL300, BD6:BD300, BF6:BF300, BH6:BH300, BJ6:BJ300, CB6:CB300, CD6:CD300," & _
"CF6:CF300, CH6:CH300, CZ6:CZ300, DB6:DB300, DD6:DD300, DF6:DF300, DX6:DX300," & _
"DZ6:DZ300, EB6:EB300, ED6:ED300, EV6:EV300, EX6:EX300, EZ6:EZ300, FB6:FB300," & _
"FT6:FT300, FV6:FV300, FX6:FX300, FZ6:FZ300").Copy Destination:=dstWsDiff1.Range("B2")

dstWsDiff1.Range("A3").Value = dtToday

Application.CutCopyMode = False

End Sub

1 回复 | 直到 2 年前

taller 2 年前

将列名列表拆分为数组

    Dim aCol, RowCnt As Long, i As Long
    Const S_ROW = 6
    Const E_ROW = 300
    RowCnt = E_ROW - S_ROW + 1
    aCol = Split("H,J,L,N,AF,AH,AJ,AL,BD,BF,BH,BJ,CB,CD," & _
    "CF,CH,CZ,DB,DD,DF,DX,DZ,EB,ED,EV,EX,EZ,FB,FT,FV,FX,FZ", ",")
    For i = 0 To UBound(aCol)
        dstWsDiff1.Range("B2").Offset(0, i).Resize(RowCnt).Value = _
            sourceWs1.Cells(S_ROW, aCol(i)).Resize(RowCnt).Value
    Next

使用嵌套循环获取列索引

    Dim i As Long, j As Long, iColDst As Long
    Dim iColSrc As Long, RowCnt As Long
    Const S_ROW = 6
    Const E_ROW = 300
    RowCnt = E_ROW - S_ROW + 1
    iColDst = 2
    For i = 1 To 8
        For j = 8 To 14 Step 2
            iColSrc = (i - 1) * 24 + j
            dstWsDiff1.Cells(2, iColDst).Resize(RowCnt).Value = _
                sourceWs1.Cells(S_ROW, iColSrc).Resize(RowCnt).Value
            iColDst = iColDst + 1 
        Next
    Next

推荐文章

Megrez7 · C#ToArray转换合并为一行,导致数组元素更改

1 年前

bairog · 从按属性筛选的对象数组字典中创建值数组

1 年前

Anka HanÄ±m · 关于结构和动态数组地址的问题

1 年前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

1 年前

Lorenzo Bertolaccini · 在Angular项目中通过对话框后,在控制台中显示但在HTML中不显示的数据数组

1 年前

MaSc. H. · 大小与阵列大小

1 年前

Geremia · 2D NumPy数组+1D数组?

1 年前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

1 年前

Paul Williams · 迭代数组时输出有问题

1 年前

Oliver Morgan · PostgreSQL错误:无法累积不同维度的数组

1 年前