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

EXCEL §Ö³t°Ñ·Ó¤u§@ªí

EXCEL §Ö³t°Ñ·Ó¤u§@ªí

·Q½Ð°Ý¦U¦ì«e½ú¡A¦pªG§Ú¦bEXCEL¤º«Ø¤F¤@­ÓÁ`ªí¦³10­Ó¶µ¥Ø¡AµM«á¦A«Ø¥ß10­Ó·s¤u§@ªí¡A²Ä1­Ó¤u§@ªí­n°Ñ·ÓÁ`ªíªºA¦C¡A²Ä2­Ó¤u§@ªí­n°Ñ·ÓÁ`ªíªºB¦C¡A¥H¦¹²Ö±À¡A¦³¨S¦³¤°»ò¤ñ¸û§Ö³tªº¤èªk¥i¥H§¹¦¨©O¡H

¦^´_ 1# sschristy


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P±¡¹Ò
«á¾Ç½m²ßVBAªº¼ÒÀÀ¸Ñ¨M¤è®×»P½d¨Ò¦p¤U,½Ð«e½ú°Ñ¦Ò

EXCEL §Ö³t°Ñ·Ó¤u§@ªí_20230320-1.zip (24.25 KB)

°õ¦æ«e:


°õ¦æµ²ªG:


Option Explicit
Sub TEST()
Application.ScreenUpdating = False
'¡ô¥O¿Ã¹õ¤£ÀHµ{§Ç§@µ²ªGªºÅܤÆ
Dim i&, Sh As Worksheet
'¡ô«Å§iÅܼÆ:i¬Oªø¾ã¼Æ,Sh¬O¤u§@ªíÅܼÆ
Set Sh = ActiveSheet
'¡ô¥OSh³o¤u§@ªíÅܼƬO²{¥Î¤u§@ªí
For i = 1 To 10
'¡ô³]¶¶°j°é!i±q1¨ì 10
   With Sheets.Add
   '¡ô¥H¤U¬OÃö©ó¼W¥[¤@­Ó·s¤u§@ªíªºµ{§Ç
      .Name = Sh.Cells(1, i)
      '¡ô¥O¤u§@ªí¦W¦r¬O ShÅܼƪº²Ä1¦C²Äi°j°éÄæÀx¦s®æ­È
      .Move After:=Sheets(Worksheets.Count)
      '¡ô¥O±N¤u§@ªí²¾°Ê¨ì³Ì«á¤@­Ó
      Sh.Columns(i).Copy .[A1]
      '¡ô¥OShÅܼƪº²Ä1Äæ½Æ»s¨ì ¦¹ªí[A1]
   End With
Next
Application.Goto Sh.[A1]
'¡ô¥OÀx¦s®æ´å¼Ð¸õ¨ì ShÅܼƪº[A1]
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD