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

[µo°Ý] (¤w¸Ñ¨M)¦p¦ó·f°tªºÀx¦s®æ¼Æ¶q¤£¦P¦Û°Ê·s¼W¹ïÀ³ªº¤u§@ªí

¦^´_ 1# freeffly
  1. Sub Ex()
  2.     Dim R As Range
  3.     On Error GoTo Out:
  4.     With Sheets("·JÁ`")
  5.         For Each R In .Range("B:B").SpecialCells(xlCellTypeFormulas, xlErrors) '³B¸ÌBÄ椤¤½¦¡¦³¿ù»~­ÈªºÀx¦s®æ
  6.             With Sheets.Add
  7.                 .Name = R.Offset(, -1).Text
  8.                 .[a1] = R.Offset(, -1).Text
  9.             End With
  10.         Next
  11.         .Activate
  12.     End With
  13. Out:
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# freeffly
AÄ榳¸ê®Æ
  1. Sub Ex()  '³B¸ÌAÄ榳¸ê®ÆªºÀx¦s®æ
  2.     Dim R As Range
  3.     With Sheets("·JÁ`")
  4.         For Each R In .Range("A:A").SpecialCells(xlCellTypeConstants)
  5.             On Error Resume Next
  6.             Sheets(R.Text).Activate
  7.             If Err > 0 Then
  8.                 With Sheets.Add
  9.                     .Name = R.Text
  10.                     .[a1] = R.Text
  11.                 End With
  12.                 Err.Clear
  13.             End If
  14.         Next
  15.         .Activate
  16.     End With
  17. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD