返回列表 上一主題 發帖

[發問] Excel如何以關鍵字選取整列資料並複製到新工作表?

一起加油吧各位QUQ,我每次想到就會來這裡點點積分,
猛一看是2月發問的,到現在還不能下載XDDDDDDDDDDDDD

我只差3個積分就可以下載了!!!!!!加油!!!!!!

TOP

好想知道怎麼解喔

TOP

嗨嗨~ 各位前輩好!!!
我將此find record1.rar下載回去研究了一下
請問是否一定要先將資料從各sheet複製出來存到某些地方
再從這些地方,複製到我想要顯示的欄位呢?

不能各sheet有符合的資料,直接顯示在我想要擺放的欄位嗎?
並且依據標題顯示,如:我只要顯示日期跟細節
謝謝喔!

TOP

請問這類型的實作是否一定得借用到VBA的語法?
學無止盡

TOP

本帖最後由 GBKEE 於 2014-2-2 09:45 編輯

回復 14# b7307024
擺放資料工作表模組的程式碼
  1. Option Explicit                    '在模組層次中強迫每個在模組堛瘍僂くㄔ眸楨確的宣告。
  2. Option Base 1                      '在模組層次中用來宣告陣列索引的預設下限->為 1
  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.     If Target.Address = "$B$1" Then
  5.          Ext_data Target
  6.     End If
  7. End Sub
  8. Private Sub Ext_data(ByVal Target As Range)
  9.     Dim mnth As Worksheet, all_month(), Rng As Range, AR(), R As Range, S As Integer
  10.     S = 1
  11.     Application.ScreenUpdating = False
  12.     Set Rng = Target.Parent.Range("A5")
  13.     Rng.CurrentRegion.Offset(1).Clear
  14.     all_month = Array("Jan", "Feb", "Mar")
  15.     For Each mnth In Sheets(all_month)
  16.         With mnth
  17.             .Range("A1").AutoFilter 4, "*" & Target & "*"            '自動篩選
  18.             For Each R In .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
  19.                 If R.Row > 1 Then
  20.                     ReDim Preserve AR(1 To S)
  21.                     'AR(S) = R   '整列
  22.                     AR(S) = Array(R.Cells(1).Value, R.Cells(4).Value)  '日期,細節
  23.                     S = S + 1
  24.                 End If
  25.             Next
  26.             .AutoFilterMode = False
  27.         End With        
  28.     Next
  29.     Rng.Offset(1).Resize(S - 1, UBound(AR(1))) = Application.Transpose(Application.Transpose(AR))
  30.     Application.ScreenUpdating = True
  31. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

謝謝您~我正好需要這樣的需求~3Q

TOP

謝謝分享,剛好有需要

TOP

回復 3# sunnyso


    可以SHARE嘛, 本人也有相同雖然此VBA CODE...謝謝~

TOP

回復 15# GBKEE


請教一下如果要將拉出來的資料做修改並回存原儲存格要怎麼做呢?

TOP

        靜思自在 : 話多不如話少,話少不如話好。
返回列表 上一主題