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））
對於i =上界（arr）至下界（arr）
if arr（I，2）= Sheets（“sheet 1“）。範圍（“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:d 10“）= rlt
末端接頭
運行實測圖: