麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 請問如何將資料庫內資料依關鍵字複製至相對工作表中 [打印本頁]

作者: cksmark129 時間: 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中

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

謝謝

作者: rouber590324 時間: 2019-2-14 15:59

Sub AA()
Sheet2.[A3

5536].ClearContents
Sheet3.[A3

5536].ClearContents
Sheet4.[A3

5536].ClearContents
Sheet5.[A3

5536].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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)