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

½Ð°Ý¬O§_¦³¤½¦¡,¥i¥H¦bÁ`ªí·s¼W¸ê®Æ«á,·|¦Û°Ê·s¼W¨ì­Ó§Oªº·~°È­û­¶­±

½Ð°Ý¬O§_¦³¤½¦¡,¥i¥H¦bÁ`ªí·s¼W¸ê®Æ«á,·|¦Û°Ê·s¼W¨ì­Ó§Oªº·~°È­û­¶­±

¦Û°Ê·s¼W¸ê®Æ.zip (13.63 KB)
¦]¸ê®Æ·|¤@ª½·s¼W
½Ð°Ý¬O§_¦³¤½¦¡,¥i¥H¦bÁ`ªí·s¼W¸ê®Æ«á,·|¦Û°Ê·s¼W¨ì­Ó§Oªº·~°È­û­¶­±
·s¼W¤@µ§¸ê®Æ

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2018-10-23 13:07 ½s¿è

DEAR SIR
¥ÎVBA¤ñ¸û§Ö¦p¤U

Sub robert2()
X = Sheet1.[A65536].End(xlUp).Row

Sheet2.[A4:L65536].ClearContents
Y1 = Sheet2.[A65536].End(xlUp).Row
For M = 4 To X
If Sheet1.Cells(M, 4) = "±i" Then
   Sheet2.Cells(Y1 + 1, 1).Resize(, 12).Value = Sheet1.Cells(M, 1).Resize(, 12).Value
   Y1 = Y1 + 1
End If
Next

Sheet3.[A4:L65536].ClearContents
Y2 = Sheet3.[A65536].End(xlUp).Row
For M = 4 To X
If Sheet1.Cells(M, 4) = "³¯" Then
   Sheet3.Cells(Y2 + 1, 1).Resize(, 12).Value = Sheet1.Cells(M, 1).Resize(, 12).Value
   Y2 = Y2 + 1
End If
Next

Sheet4.[A4:L65536].ClearContents
Y3 = Sheet4.[A65536].End(xlUp).Row
For M = 4 To X
If Sheet1.Cells(M, 4) = "´­" Then
   Sheet4.Cells(Y3 + 1, 1).Resize(, 12).Value = Sheet1.Cells(M, 1).Resize(, 12).Value
   Y3 = Y3 + 1
End If
Next

Sheet5.[A4:L65536].ClearContents
Y4 = Sheet5.[A65536].End(xlUp).Row
For M = 4 To X
If Sheet1.Cells(M, 4) = "ªL" Then
   Sheet5.Cells(Y4 + 1, 1).Resize(, 12).Value = Sheet1.Cells(M, 1).Resize(, 12).Value
   Y4 = Y4 + 1
End If
Next
  
  
End Sub
ù

TOP

¦^´_ 2# rouber590324

ÁÂÁ±z,vba§Ú¦A¬ã¨s¤@¤U

TOP

¥[­Ó»²§UÄ椽¦¡§Y¥i»´ÃP¹F¦¨:
Xl0000286.rar (13.44 KB)

¨Ï¥Î°}¦C¤½¦¡¤]¥i¹F¨ì¥Øªº, ¦ý¥i¯à·|¥dÀÉ, ¤£«Øij~~

TOP

¦^´_ 4# ­ã´£³¡ªL


    ÁÂÁ±z,¥i¥H¥Î¤F

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD