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

yan2463

¦Û°Ê·s¼W¸ê®Æ.zip (13.63 KB)

¤U¸ü¦¸¼Æ: 9

2018-10-19 12:51

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

yan2463

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


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

­ã´£³¡ªL

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

¤U¸ü¦¸¼Æ: 12

2018-10-24 19:51

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

yan2463

¦^´_ 2# rouber590324

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

rouber590324

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