如何使用Excel VBA根據sheet1的名稱匹配sheet2的垂直列？

Sub GetData()

Dim arr，brr()，buf()，rlt()

Dim i為長，j為長，k為長，m為長，n為長，x為長，y為長

arr = Sheets(“sheet 2”)。範圍(" a2:e13 ")

ReDim brr(LBound(arr，2)至UBound(arr，2)，LBound(arr)至UBound(arr))

For i = LBound(arr)至UBound(arr)

If arr(i，2) = Sheets("Sheet1 ")。範圍(" b2 ")然後

對於j = LBound(arr，2)至UBound(arr，2)

brr(j，LBound(arr) + k) = arr(i，j)

下壹個j

k = k + 1

如果…就會結束

接下來我

ReDim buf(LBound(brr，2)至UBound(brr，2)，LBound(brr)至UBound(brr))

對於i = LBound(brr)至UBound(brr)

對於j = LBound(brr，2)至UBound(brr，2)

buf(j，i) = brr(i，j)

下壹個j

接下來我

m = LBound(緩沖器)

N = LBound(buf)+6-1 '前6行

x = LBound(buf，2) + 3 - 1

y = UBound(buf，2)

ReDim rlt(m到n，x到y)

因為i = m到n

對於j = x到y

rlt(i，j) = buf(i，j)

然後

工作表(“工作表1”)。範圍(" b5:d10 ")。清除內容

工作表(“工作表1”)。Range("b5:d10") = rlt

末端接頭

運行測量地圖: