±qA EXCEL ÀɱN¸ê®Æ¼g¦Ü B EXCELÀɤ¤

ooctiger

¦U¦ì«e½ú,

½Ð±Ð¦U¦ì«e½ú
­n±N A.XLS¤¤ ªº "©±¦W" ¤u§@ªí ¤ºªº A2:An ,  n ªí¥Ü¤£ª¾¹D·|¦³´X¶¡©±
¼g¤JB.XLS¤¤ªº "·~ÁZ²Î­p" ¤u§@ªí ªº A3 : An+1 ¤º
¤£ª¾¹D EXCEL VBA ­n¦p¦ó¼¶¼g? (VBAµ{¦¡¼g¦b B.XLS ¤¤)

³o¸Ì­±§Úªº§xÃøÂI¦b
1¡B¤£¦PEXCELÀɮתº¸ê®ÆŪ¨ú¹B§@¤è¦¡?
2¡B­n¦p¦óºâ A.XLS ¦@¦³´X®a©± ?
3¡B¶i¶¥°ÝÃD¡A¦pªGA¦³­«½Æ©±¦W¡A­n¦p¦ó§PÂ_¡H(¦]¬°B.XLS ©±¦W¤£¥i­«½Æ)

¥ýÁÂÁ«e½ú

PKKO

¦^´_ 5# stillfish00


    stillfish00 ¤j¤j¯u¬O¤Ó»Å¤F,ÁÙ¦³³oºØ¤è¦¡,±q±z¨­¤W¯uªº¾Ç¨ì«Ü¦hªF¦è©O!©~µMÁÙ¥i¥H«ü©wºô¯¸·j´M

stillfish00

¦^´_ 3# ooctiger
GOOGLE·j´M transpose  , ¥Îsite«ü©w¥»½×¾Â , ¦p¤U
https://www.google.com.tw/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=transpose+site:forum.twbts.com

GBKEE

¦^´_ 3# ooctiger

°Q½×°Ïªº¦^¤å¦h¬Ý¤@¨Ç

ooctiger

¦^´_ 2# GBKEE

¦pªGA.xls ¬O '¥¼¶}±Ò' ªº±¡ªp¤U¡Aµ{¦¡­n¦p¦ó­×§ï
°²³] A.xls ¬O©ñ¦b C:\temp ¤U

¥t¥~µ{¦¡½X²Ä17¦æ
    .Resize(D.Count) = Application.WorksheetFunction.Transpose(D.KEYS)
¡A¥i§_½ÐGBKEEµy§@¸ÑÄÀ¡A¨Ã´£¨Ñ¥i¥H¬d¸ß¨ìªººô­¶¡C

¹ê¦b¬O·s¤â. ³s­n«ç»ò¥h·j´M³£ÁÙ¬O°ÝÃD   
ÁÂÁÂ

GBKEE

¦^´_ 1# ooctiger

A,B ¤w¶}±Ò¤Uªºµ{¦¡½X

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim D As Object, i As Integer
   
4.     Set D = CreateObject("SCRIPTING.DICTIONARY") '¦r¨åª«¥ó
   
5.     '1¡B¤£¦PEXCELÀɮתº¸ê®ÆŪ¨ú¹B§@¤è¦¡?
   
6.     With Workbooks("a.xls").Sheets("©±¦W")
   
7.         i = 2
   
8.         Do While .Cells(i, "a") <> ""
   
9.             D(.Cells(i, "a").Value) = ""
   
10.             '3¡B¶i¶¥°ÝÃD¡A¦pªGA¦³­«½Æ©±¦W¡A­n¦p¦ó§PÂ_¡H(¦]¬°B.XLS ©±¦W¤£¥i­«½Æ)
    
11.             '¦pªGA¦³­«½Æ©±¦W,¦r¨åª«¥ó¥u¨ú³Ì«áªº©±¦W
    
12.             i = i + 1
    
13.         Loop
    
14.         MsgBox i - 2 '2¡B­n¦p¦óºâ A.XLS ¦@¦³´X®a©± ?
    
15.     End With
    
16.     With Workbooks("B.xls").Sheets("·~ÁZ²Î­p").Range("A3")
    
17.         .Resize(D.Count) = Application.WorksheetFunction.Transpose(D.KEYS)
    
18.     End With
    
19. End Sub

½Æ»s¥N½X