ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó±N¸ê®Æ®w¤º¸ê®Æ¨ÌÃöÁä¦r½Æ»s¦Ü¬Û¹ï¤u§@ªí¤¤

[µo°Ý] ½Ð°Ý¦p¦ó±N¸ê®Æ®w¤º¸ê®Æ¨ÌÃöÁä¦r½Æ»s¦Ü¬Û¹ï¤u§@ªí¤¤

½Ð°Ý²{¦b¦³¤@µ§¸ê®Æ©ñ©ó Sheet"DATA",
±ý±N¨ä¦Û°Ê¨Ì·ÓType ÃöÁä¦r(150/ 151/ 152/ 153)¦U¦Û¤ÀÃþ¨Ã½Æ»s¦Ü¤u§@ªí©óA3 ¶K¤W

¨Ò¦p:
ÃöÁä¦r¬°151®É: XC151034 »P XC151088 ¦¹¨â¦C¸ê®Æ ½Æ»s¦Ü ¤u§@ªí 151©óA3 ¶}©l¶K¤W
ÃöÁä¦r¬°152®É: BC152000/  XC152099/ VC152309 ¦¹¤T¦C¸ê®Æ ½Æ»s¦Ü ¤u§@ªí 152©óA3 ¶}©l¶K¤W
ÃöÁä¦r¬°153®É: ¦]µL¬Û²Å¸ê®Æ, ¬GµL¸ê®Æ½Æ»s¦Ü¤u§@ªí153¤¤

½Ð°Ý³o¼Ë¥¨¶°¸Ó­n¦p¦ó¼g?

ÁÂÁÂ

½d¥»2.zip (9.35 KB)

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

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD