首頁猿問 2范圍內(nèi)的維數(shù)陣列

2范圍內(nèi)的維數(shù)陣列

源碼算法與數(shù)據(jù)結(jié)構(gòu)

藍(lán)山帝景 2019-07-30 17:34:53

2范圍內(nèi)的維數(shù)陣列我在單元格中的Excel工作表中有文本數(shù)據(jù)B6:H14。有些行有2個(gè)單元格有內(nèi)容，有些行有4個(gè)，有些行有7個(gè)。如何將這些復(fù)制到2維數(shù)組？我已經(jīng)知道尺寸了，所以我很擅長(zhǎng)尺寸沒有被聲明為動(dòng)態(tài)代碼。我是否需要使用循環(huán)（我目前正計(jì)劃使用）？或者是更容易/更優(yōu)雅的方式？

查看完整描述

1 回答

狐的傳說

TA貢獻(xiàn)1804條經(jīng)驗(yàn) 獲得超3個(gè)贊

假設(shè)您的電子表格看起來像這樣

有一種非常簡(jiǎn)單的方法可以將其粘貼在2D陣列中

Dim arr as Variantarr = Range("B6:H14").Value

將此數(shù)組打印回電子表格的最簡(jiǎn)單方法

Sub PrintVariantArr()

    Dim arr As Variant
    arr = Range("B6:H14")

    Range("B16").Resize(UBound(arr, 1), UBound(arr, 2)) = arrEnd Sub

或者您可以迭代/循環(huán)數(shù)組

Sub RangeToArray()

    Dim arr As Variant
    arr = Range("B6:H14").Value    Dim r As Long, c As Long

    r = 16
    c = 2

    Dim i, j    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            Cells(r, c) = arr(i, j)
            c = c + 1
        Next j
        c = 2
        r = r + 1
    Next iEnd Sub

并且您的陣列打印回電子表格

反對(duì) 回復(fù) 2019-07-30