- ©«¤l
- 560
- ¥DÃD
- 159
- ºëµØ
- 0
- ¿n¤À
- 723
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2023-10-31
|
DEAR ALL ¤j¤j
¤p§Ì¤À¦p¤U4²Õ¤è§¹¦¨
½Ð±Ð¦p¦ó¤@²ÕVAB§Y§¹¦¨¤§¤è¦¡ ·Ð¤£§[½ç±Ð
Sub ±ø¥ó¸ê®Æ®wA()
Application.Run "±ø¥ó¸ê®Æ®wA1"
Application.Run "±ø¥ó¸ê®Æ®wA2"
Application.Run "±ø¥ó¸ê®Æ®wA3"
Sheet3.[a2:f65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet3.[A65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 9) = 0 Then
Sheet3.Cells(Y + 1, 1).Resize(, 6).Value = Sheet1.Cells(M, 1).Resize(, 6).Value
Y = Y + 1
End If
Next
End Sub
Sub ±ø¥ó¸ê®Æ®wA1()
Sheet1.[G2:G65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
For M = 2 To X
Sheet1.Cells(M, 7) = Mid(Sheet1.Cells(M, 1), 1, 7)
Next
End Sub
Sub ±ø¥ó¸ê®Æ®wA2()
Sheet1.[H2:H65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 5) = "NULL" Or Sheet1.Cells(M, 5) = "" Or Sheet1.Cells(M, 5) = " " Then
Sheet1.Cells(M, 8) = Sheet1.Cells(M, 7)
End If
Next
End Sub
Sub ±ø¥ó¸ê®Æ®wA3()
Sheet1.Select
Range("A1").Select
Sheet1.[I2:I65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
For M = 2 To X
Sheet1.Cells(M, 9) = Application.CountIf(Sheet1.Range("H:H"), Sheet1.Cells(M, 7))
Next
End Sub |
|