返回列表 上一主題 發帖

[發問] 請問如何將資料庫內資料依關鍵字複製至相對工作表中

cksmark129

帖子
6 
主題
5 
精華
0 
積分
59 
點名
0  
作業系統
WIN8 
軟體版本
OFFICE2010 
閱讀權限
20 
註冊時間
2018-4-21 
最後登錄
2023-6-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-2-14 10:28 | 只看該作者

[發問] 請問如何將資料庫內資料依關鍵字複製至相對工作表中

請問現在有一筆資料放於 Sheet"DATA",
欲將其自動依照Type 關鍵字(150/ 151/ 152/ 153)各自分類並複製至工作表於A3 貼上

例如:
關鍵字為151時: XC151034 與 XC151088 此兩列資料 複製至 工作表 151於A3 開始貼上
關鍵字為152時: BC152000/  XC152099/ VC152309 此三列資料 複製至 工作表 152於A3 開始貼上
關鍵字為153時: 因無相符資料, 故無資料複製至工作表153中

請問這樣巨集該要如何寫?

謝謝

範本2.zip (9.35 KB)

收藏 分享

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2019-2-14 15:59 | 只看該作者
Sub AA()
Sheet2.[A35536].ClearContents
Sheet3.[A35536].ClearContents
Sheet4.[A35536].ClearContents
Sheet5.[A35536].ClearContents

X = Sheet1.[A65536].End(xlUp).Row
Y1 = Sheet2.[A65536].End(xlUp).Row
Y2 = Sheet2.[A65536].End(xlUp).Row
Y3 = Sheet2.[A65536].End(xlUp).Row
Y4 = Sheet2.[A65536].End(xlUp).Row
For M = 2 To X
If Mid(Sheet1.Cells(M, 1), 3, 3) = "150" Then
  Sheet2.Cells(Y1 + 2, 1).Resize(, 4).Value = Sheet1.Cells(M, 1).Resize(, 4).Value
    Y1 = Y1 + 1
ElseIf Mid(Sheet1.Cells(M, 1), 3, 3) = "151" Then
  Sheet3.Cells(Y2 + 2, 1).Resize(, 4).Value = Sheet1.Cells(M, 1).Resize(, 4).Value
    Y2 = Y2 + 1
ElseIf Mid(Sheet1.Cells(M, 1), 3, 3) = "152" Then
  Sheet4.Cells(Y3 + 2, 1).Resize(, 4).Value = Sheet1.Cells(M, 1).Resize(, 4).Value
    Y3 = Y3 + 1
ElseIf Mid(Sheet1.Cells(M, 1), 3, 3) = "153" Then
  Sheet5.Cells(Y4 + 2, 1).Resize(, 4).Value = Sheet1.Cells(M, 1).Resize(, 4).Value
    Y4 = Y4 + 1
End If
Next
End Sub
羅

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題