¿¢¼¿ A¿¿¡ °¢°¢ ¿ùÀÌ ¼ýÀڷΠä¿öÁ® Àִ°ÍÀ» ¿ùÀ» »ðÀÔÇؼ 1 ¡æ 1¿ù·Î º¯°æÇÏ°í ½Í½À´Ï´Ù.
Sub ¿ù»ðÀÔ() Columns("A:A").Select Selection.Replace What:="1", Replacement:="1¿ù" Selection.Replace What:="11", Replacement:="11¿ù" End Sub
¾Æ·¡¿Í °°ÀÌ Çß´õ´Ï
"1"Àº ¡æ "1¿ù" Á¤»ó
"10"Àº ¡æ"1¿ù0¿ù"
"11"Àº ¡æ "1¿ù1¿ù"
·Î °¢°¢ º¯°æÀÌ µË´Ï´Ù.
±×·¡¼ ³¡ÀÚ¸®¶ó°í ÀνÄÇÏ°Ô ÇÏ¿©°í ¾Æ·¡¿Í "$"¸¦ »ðÀÔÇß´õ´Ï À̹ø¿¡´Â ¾Æ¿¹ º¯È¯ÀÌ ¾ÈµË´Ï´Ù.
Sub ¿ù»ðÀÔ() Columns("A:A").Select Selection.Replace What:="1$", Replacement:="1¿ù" Selection.Replace What:="11$", Replacement:="11¿ù" End Sub
Ȥ½Ã ¿¢¼¼ °í¼öºÐ °è½Ã¸é ´äÁ» ¾Ë·ÁÁÖ½Ã¸é °¨»çÇÏ°Ú½À´Ï´Ù.
|
ub ¿ù»ðÀÔ()
'
' ¿ù»ðÀÔ ¸ÅÅ©·Î
'
'
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim s As Integer
k = Application.CountA(Range("M1:M500"))
j = 13
. M¿ÀÌ 13¹øÀÌ¶ó¼ °íÁ¤ÇßÀ½
For i = 3 To k
s = Len(Cells(i, 13).Value)
Cells(1, j) = s
If s = 1 Then
Cells(i, j).Replace What:="1", Replacement:="1¿ù"
Cells(i, j).Replace What:="2", Replacement:="2¿ù"
Cells(i, j).Replace What:="3", Replacement:="3¿ù"
Cells(i, j).Replace What:="4", Replacement:="4¿ù"
Cells(i, j).Replace What:="5", Replacement:="5¿ù"
Cells(i, j).Replace What:="6", Replacement:="6¿ù"
Cells(i, j).Replace What:="7", Replacement:="7¿ù"
Cells(i, j).Replace What:="8", Replacement:="8¿ù"
Cells(i, j).Replace What:="9", Replacement:="9¿ù"
ElseIf s = 2 Then
Cells(i, j).Replace What:="10", Replacement:="10¿ù"
Cells(i, j).Replace What:="11", Replacement:="11¿ù"
Cells(i, j).Replace What:="12", Replacement:="12¿ù"
End If
Next i
End Sub