返回列表 上一主題 發帖

[發問] 找尋資料後貼在總表

[發問] 找尋資料後貼在總表

小弟是很菜新手
目前想要資料工作頁找指定品名與下列表格後複製在總頁
希望論台大哥 有空閒時 可幫幫起個頭

尋找東西.rar (16.58 KB)

請幫忙

新手

回復 1# 馬曉南

謝謝前輩發表此主題與範例
後學藉此帖練習VBA陣列,學習方案如下,請前輩參考

Option Explicit
Sub TEST()
Dim K$, i&, j%, C%, N&, Brr
Range([總表!A1], Sheets("總表").UsedRange).Offset(2, 1).Clear
Brr = Range([資料!IV3].End(xlToLeft), [資料!A65536].End(xlUp)(1, 2))
K = [總表!A2]: N = 8: C = UBound(Brr, 2)
For j = 1 To C
   If K <> Brr(1, j) Then
      For i = 1 To N + 1
         Brr(i, j) = ""
      Next
   End If
Next
[總表!B3].Resize(N + 1, C) = Brr
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

方案2 請前輩參考:

Option Explicit
Sub TEST_2()
Dim K$, i&, j%, C%, N&, Brr, Crr
Range([總表!A1], Sheets("總表").UsedRange).Offset(2, 1).Clear
Brr = Range([資料!IV3].End(xlToLeft), [資料!A65536].End(xlUp)(1, 2))
K = [總表!A2]: N = 8: C = UBound(Brr, 2)
ReDim Crr(1 To UBound(Brr), 1 To C)
For j = 1 To C
   If K = Brr(1, j) Then
      For i = 1 To N + 1
         Crr(i, j) = Brr(i, j)
      Next
   End If
Next
[總表!B3].Resize(N + 1, C) = Crr
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題