[µo°Ý] ½Ð°ÝVBA¥i¥H°µ¨ì¨âÀɮפñ¹ï«á¦A²£¥Í¥t¤@Àɮתº¤ñ¹ïµ²ªG¶Ü?

happycoccolin

½Ð°Ý¤@¤U¤j®v­Ì~

¥Ø«e¤âÃ䦳¤@ªñ¤­¸Uµ§ªº¸ê®Æ®w--A¸ê®Æ §Ú­Ì»Ý­n±N¤âÃ䪺B¸ê®Æ»P¤§°µ¤ñ¹ï

½Ð°ÝVBA¦³¨S¦³¿ìªk°µ¥X¤@­ÓÀÉ®× ¶}±Ò«áª½±µ¸ü¤JEXCELªºAÀÉ®× »PBÀÉ®× ¤ñ¹ï«á²£¥ÍCÀɮשO?
CÀÉ®×¥HBÀɮ׮榡¬°¥D ¦V«á¦h¥[Äæ¦ì"K"
KÄæ¦ì¤º®e¬OAÀɮתºAÄæ¦ì

¤ñ¹ï¤º®e¬O

AÀɮתºEÄæ¦ì »P BÀɮתºJÄæ¦ì¤ñ¸û(¥i©¿²¤"-")

AÀɮתº®æ¦¡¦p¤U
A                 B           C                       D                         E
100-1       XXX      XXX                 XXX                   DOG
100-2       XXX      XXX                 XXX                   CAT
100-3       XXX      XXX                 XXX                   CAT-1
100-4       XXX      XXX                 XXX                   CAT-2

BÀɮתº®æ¦¡¦p¤U
A                 B           C                       D                         E                      F                       G             H                I           J
11            XX          XX                      XX                       XX                 XX                        XX         XX            CC       DOG
12            XX          XX                      XX                       XX                 XX                        XX         XX            CC       CAT
13            XX          XX                      XX                       XX                 XX                        XX         XX            CC       CAT1
14            XX          XX                      XX                       XX                 XX                        XX         XX            CC       CAT-1
15            XX          XX                      XX                       XX                 XX                        XX         XX            CC       CAT3

¤ñ¹ïµ²ªG§Æ±æ²£¥ÍCÀÉ®×
A                 B           C                       D                         E                      F                       G             H                I           J                K
11            XX          XX                      XX                       XX                 XX                        XX         XX            CC       DOG       100-1
12            XX          XX                      XX                       XX                 XX                        XX         XX            CC       CAT          100-2
13            XX          XX                      XX                       XX                 XX                        XX         XX            CC       CAT1        100-3
14            XX          XX                      XX                       XX                 XX                        XX         XX            CC       CAT-1       100-3
15            XX          XX                      XX                       XX                 XX                        XX         XX            CC       CAT3          No Data

happycoccolin

¦^´_ 55# stillfish00


    ÁÂÁÂS¤j~~~~~~~~~^^

¥u¬O­Y­n¸òµ{¦¡µ²¦X§ÚÁÙ¬O¦³°ÝÃD~~~@@

¥[¿ù¦a¤è¾ã­Óµ{¦¡RUN¥X¨Ó¬OªÅ¥Õªº.........

  r = UBound(ar)
  With Workbooks.Add
       With .Sheets(1)
      For i = LBound(cIndexOld) To UBound(cIndexOld)
        .Cells(1, cIndexNew(i)).Resize(r).Value = Application.WorksheetFunction.Index(ar, 0, cIndexOld(i))
      Next
      .[A1].Resize(, UBound(arNewHeader) + 1).Value = arNewHeader
      .[A1:AV10000].Font.Name = "Arial"  '¦rÅé¦WºÙ
      .[A1:AV10000].Font.Size = 10 '¦rÅé¤j¤p
      
    End With

stillfish00

¦^´_ 54# happycoccolin
.Cells ´N¥Nªí¤u§@ªí¤¤ªº©Ò¦³Àx¦s®æ¤F

1. With Workbooks.Add
   
2.        With .Sheets(1).Cells
   
3.           .Font.Name = "Tahoma"  '¦rÅé¦WºÙ
   
4.           .Font.Size = 10 '¦rÅé¤j¤p
   
5.        End With
   
6. End With

½Æ»s¥N½X

happycoccolin

¦^´_ 53# stillfish00


    ÁA¸Ñ¤F~~~~S¤j~^_____^

¨º­Y¬O¾ã­Ósheet³£­n³]©w¥i¥H«ç»ò§ï~

§Ú²{¦b¬O³o¼Ë¼g

      .[A1:AV10000].Font.Name = "Tahoma"  '¦rÅé¦WºÙ
      .[A1:AV10000].Font.Size = 10 '¦rÅé¤j¤p

stillfish00

¦^´_ 52# happycoccolin
­nµ¹Àx¦s®æ½d³ò¡A¦p
With Workbooks.Add
       With .Sheets(1)
          .[A1:H1].Font.Name = "Tahoma"  '¦rÅé¦WºÙ
          .[A1:H1].Font.Size = 10 '¦rÅé¤j¤p
       End With
End With

happycoccolin

¦^´_ 50# stillfish00


    S¤j~~§Ú·Q¥[¤J³o¨â¦æ~¦ý¬O¤@ª½¦³¿ù¥i¥HÀ°¦£¬Ý¤@¤U¶Ü~~~ÁÂÁÂ~~~~
With Workbooks.Add
       With .Sheets(1)
      .Font.Name = "Tahoma"  '¦rÅé¦WºÙ
      .Font.Size = 10 '¦rÅé¤j¤p
       End With
End With

happycoccolin

¦^´_ 50# stillfish00


    ÁÂS¤jªº¶W§Ö³t¸Ñµª~

§Ú¨Ó¦h¶]´X­ÓÀɮ׸ոլÝ~

¥Ø«e¦³¤@¬q·|¦³°ÝÃD §Ú¦A¦hRUN´X­ÓÀɮ׬ݮ榡­þÃ䦳¤£¦P~

.Cells(1, cIndexNew(i)).Resize(r).Value = Application.WorksheetFunction.Index(ar, 0, cIndexOld(i))

ÁÂStillfish00¤j~^________^

stillfish00

¦^´_ 49# happycoccolin

1. Sub TEST()
   
2.   Dim ar, r As Long, i As Long
   
3.   Dim cIndexOld, cIndexNew, arNewHeader
   
4.   Dim f, findTitle
   
5.   
   
6.   cIndexOld = Array(2, 3, 4, 5, 7, 8)   'AÀɮפ¤­n·h°ÊªºÄæ
   
7.   cIndexNew = Array(2, 4, 21, 24, 43, 44)   '·h¨ìBÀɦì¸m
   
8.   arNewHeader = Array("Q", "W", "E", "R", "T", "Y", "U", "I") '¦Û¤v¶ñ¥þ³¡BÀɼÐÃD¦WºÙ
   
9.   
   
10.   f = Application.GetOpenFilename(FileFilter:="Excel ¬¡­¶Ã¯ (*.xlsx),*.xlsx", Title:="¿ï¾Ü¨Ó·½ÀÉ®×")
    
11.   If Not TypeName(f) = "String" Then Exit Sub '¨ú®ø«hµ²§ô
    
12.   
    
13.   Application.ScreenUpdating = False
    
14.   With Workbooks.Open(f)
    
15.     With .Sheets(1)
    
16.       Set findTitle = .Cells.Find("Item", , xlValues, xlWhole, xlByRows, xlNext)  '§ä¼ÐÃD Item
    
17.       If findTitle Is Nothing Then MsgBox "§ä¤£¨ì¼ÐÃD": Exit Sub
    
18.       
    
19.       With findTitle.CurrentRegion
    
20.         ar = .Parent.Range(findTitle, .Cells(.Rows.Count, .Columns.Count)).Value
    
21.       End With
    
22.     End With
    
23.     .Close False
    
24.   End With
    
25.   Application.ScreenUpdating = True
    
26.   
    
27.   r = UBound(ar)
    
28.   With Workbooks.Add
    
29.     With .Sheets(1)
    
30.       For i = LBound(cIndexOld) To UBound(cIndexOld)
    
31.         .Cells(1, cIndexNew(i)).Resize(r).Value = Application.WorksheetFunction.Index(ar, 0, cIndexOld(i))
    
32.       Next
    
33.       .[A1].Resize(, UBound(arNewHeader) + 1).Value = arNewHeader
    
34.     End With
    
35.    
    
36.     If MsgBox("¬O§_­nÀx¦sÀÉ®×?", vbYesNo) = vbYes Then
    
37.       f = Application.GetSaveAsFilename(FileFilter:="Excel ¬¡­¶Ã¯ (*.xlsx),*.xlsx", Title:="¥t¦s¬°·sÀÉ")
    
38.       If Not TypeName(f) = "String" Then Exit Sub '¨ú®ø«hµ²§ô
    
39.       .SaveAs f, FileFormat:=xlWorkbookDefault
    
40.     End If
    
41.   End With
    
42. End Sub

½Æ»s¥N½X

happycoccolin

¦^´_ 48# stillfish00


    «¢ÅoS¤j~§Ú¸Õ¹L¤F~~~·P¿E¤£ºÉ~

·Q½Ð°Ý¤@¤U­Y¬O§Ú­n¶]¸ê®Æ±qB5¶}©lªº ¬O­n­×§ï­þÃä©O?

ÁÙ¬O¥i¥H¥Î§PÂ_TITLE³oºØ¤è¦¡³B²z¶Ü?

EX:­YTITLE(B4)¬O"Item"´N±q¤U¤@®æ(B5)¶}©l¨ú¸ê®Æ ¤@Ãþªº

¤£¦n·N«ä..¤S¥H¤@¯ë¤Hªº·Qªk¨Ó´£°Ý~@@

ÁÂÁÂS¤jªº­@¤ß»PÀ°¦£

stillfish00

¦^´_ 46# happycoccolin

­Y¦³ªºÀɮ׬OB5Äæ¶}©l¦³ªº¬OB6Äæ¶}©l ¥i¥H«ç»ò§PÂ_?

¤£ª¾¹D¡A
¦Ó¥B§AªºA_0814.xlsxÀÉ®×®¼©Çªº¡I
[A4]Àx¦s®æ©ú©ú¨S¤å¦r(¤]¨S¦³¤£¥i¨£¦r¤¸)¡A«o¤S¤£¬OªÅ¥ÕÀx¦s®æ(´M§ä>¯S®í¥Ø¼Ð>ªÅ¥Õ¡A¤£·|§ä¨ì)
¥ÎCtrl+¤W¤U¤]³£·|¸õ¹L¡C
²Ä¤@¦¸¹J¨ì³oºØ±¡§Î~

­Y¬O·sªí®æ©Ò¦³Äæ¦ì³£­n¦³TITLE ¥i¥H³£¶ñ¤W¶Ü~

§ï¤@¤U

1.   arNewHeader = Array("Q", "W", "E", "R", "T", "Y", "U", "I") '¦Û¤v¶ñ¤W¥þ³¡·s¼ÐÃD¦WºÙ

½Æ»s¥N½X

ÁÙ¦³³oÃä

1.     With .Sheets(1)
   
2.       For i = LBound(cIndexOld) To UBound(cIndexOld)
   
3.         .Cells(1, cIndexNew(i)).Resize(r).Value = Application.WorksheetFunction.Index(ar, 0, cIndexOld(i))
   
4.       Next
   
5.       .[A1].Resize(, UBound(arNewHeader) + 1).Value = arNewHeader
   
6.     End With

½Æ»s¥N½X