GBKEE

¦^´_ 1# PJChen

1. Option Explicit
   
2. Sub Acopy_from_Multi_format()
   
3.     Dim Sh(1 To 2) As Worksheet
   
4.     '*** ¤u§@ªí «ü©wµ¹ÅܼÆ: ¦pµ{§Ç«Ü¤j ­×§ï¤u§@ªí¦WºÙ®É¤£¥²¦bµ{§Ç¤¤¤@¤@§ó§ï ***   
   
5.     Set Sh(1) = Workbooks("2011 BCMart Multi-Format.xlsx").Sheets("BCM±±ºÞ")
   
6.     Set Sh(2) = Workbooks("VBA Cluster.xlsm").Sheets("BCM±±ºÞ")
   
7.        With Sh(1)
   
8.         .Columns("A:CZ").Hidden = False
   
9.         Set A = Intersect(.UsedRange, .Range("A:CZ")).SpecialCells(xlCellTypeVisible)
   
10.         Sh(2).Columns("A:CZ").Hidden = False
    
11.         A.Copy Sh(2).Range("A1")  '§¹¥þ½Æ»s
    
12.     End With
    
13.     With Sh(2)  '½Ð§ï¦¨­n½Æ»s¬¡­¶Ã¯ªº¦WºÙ(¤w¸g¥´¶})
    
14.         .Columns("A:CZ").Hidden = False
    
15.         Set A = Intersect(.UsedRange, .Range("A:CZ")).SpecialCells(xlCellTypeVisible)
    
16.         A.Copy .Range("A1")  '§¹¥þ½Æ»s
    
17.         .Columns("F:F").Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
    
18.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    
19.         ReplaceFormat:=False
    
20.     End With
    
21.     Workbooks("VBA Cluster.xlsm").Sheets("VBA").Activate
    
22.     Range("B1").Select
    
23. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# PJChen

1. Option Explicit
   
2. Sub Acopy_from_Multi_format()
   
3.     Dim Wb(1 To 2) As Workbook, Sh As Worksheet    '©Î¬O Sh As Variant
   
4.     '*** «ü©wµ¹ÅܼÆ: ¦pµ{§Ç«Ü¤j ­×§ï¦WºÙ®É¤£¥²¦bµ{§Ç¤¤¤@¤@§ó§ï ***
   
5.     Set Wb(1) = Workbooks("2011 BCMart Multi-Format.xlsx")
   
6.     Set Wb(2) = Workbooks("VBA Cluster.xlsm")
   
7.     For Each Sh In Wb(1).Sheets(Array("BCM±±ºÞ", "Factory Ship", "Chart"))   '
   
8.         'For Each Sh In Array("BCM±±ºÞ", "Factory Ship", "Chart")   'Sh As Variant ¦p¦¹§@
   
9.         With Sh
   
10.             'With Wb(1).Sheets(Sh)                                  'Sh As Variant ¦p¦¹§@
    
11.             .Columns("A:CZ").Hidden = False
    
12.              Intersect(.UsedRange, .Range("A:CZ")).SpecialCells(xlCellTypeVisible).Copy
    
13.                                                                     '¥ý°µ½Æ»sªº°Ê§@
    
14.             With Wb(2).Sheets(Sh.Name)
    
15.              '   With Wb(2).Sheets(Sh)                              'Sh As Variant ¦p¦¹§@
    
16.                 .Range("A1").PasteSpecial Paste:=xlPasteAll          '§¹¥þ½Æ»s
    
17.                 .Range("A1").PasteSpecial Paste:=xlPasteValues       '½Æ»s­È
    
18.                 .Columns("A:CZ").Hidden = False
    
19.             End With
    
20.         End With
    
21.     Next
    
22.     Application.CutCopyMode = False
    
23.     'CutCopyMode ÄÝ©Ê: ³]©w [°Å¤U] ©Î [½Æ»s] ¼Ò¦¡ªºª¬ºA¡C¥i¬° True¡BFalse ©Î¤@­Ó XLCutCopyMode ±`¼Æ¡A¦p¤U¦Cªí®æ©Ò¥Ü¡CŪ/¼g Long¡C
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# PJChen

1. Option Explicit
   
2. Sub Acopy_from_Multi_format()
   
3.     Dim Wb(1 To 2) As Workbook, xS As Integer, Ar1(), Ar2()
   
4.     '*** «ü©wµ¹ÅܼÆ: ¦pµ{§Ç«Ü¤j ­×§ï¦WºÙ®É¤£¥²¦bµ{§Ç¤¤¤@¤@§ó§ï ***
   
5.     Dim Ar(1 To 2)
   
6.     Set Wb(1) = Workbooks("2011 BCMart Multi-Format.xlsx")
   
7.     Set Wb(2) = Workbooks("VBA Cluster.xlsm")
   
8.     Ar1 = Array("BCM±±ºÞ", "Factory xsip", "Chart")    '¸m¤J°}¦C
   
9.     Ar2 = Array("A:CZ", "A:AI", "A:AP")                '¸m¤J°}¦C
   
10.     For xS = 0 To UBound(Ar1)     '-> Array("BCM±±ºÞ", "Factory xsip", "Chart")
    
11.         With Wb(1).Sheets(Ar1(xS))                                  '¥N¤J Ar1(xS)
    
12.             .Columns("A:CZ").Hidden = False
    
13.             Intersect(.UsedRange, .Range(Ar2(xS))).SpecialCells(xlCellTypeVisible).Copy
    
14.                                    ''¥N¤J Ar2(xS) : ¥ý°µ½Æ»sªº°Ê§@
    
15.                 With Wb(2).Sheets(Ar1(xS))                              '¥N¤J Ar1(xS)
    
16.                     .Range("A1").PasteSpecial Paste:=xlPasteAll         '§¹¥þ½Æ»s
    
17.                     .Range("A1").PasteSpecial Paste:=xlPasteValues      '½Æ»s­È
    
18.                     .Columns("A:CZ").Hidden = False
    
19.             End With
    
20.         End With
    
21.     Next
    
22.     Application.CutCopyMode = False
    
23.     'CutCopyMode ÄÝ©Ê: ³]©w [°Å¤U] ©Î [½Æ»s] ¼Ò¦¡ªºª¬ºA¡C¥i¬° True¡BFalse ©Î¤@­Ó XLCutCopyMode ±`¼Æ¡A¦p¤U¦Cªí®æ©Ò¥Ü¡CŪ/¼g Long¡C
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# PJChen
§A±N½Æ»sµ{¦¡½X«á,¶K¦b¤w¦³ªºµ{¦¡½X¤U¤è·íµM·|¦b¨º¸Ì¥X²{.
§R±¼  ©Î²¾ ¨ì³»ºÝ  ´N¦n¤F.

GBKEE

¦^´_ 9# PJChen
¦p¦³ ³o¨ÇOption  ³£¥²¶·¸m©ó ¼Ò²Õªº³»ºÝ
Option Explicit     ³¯­z¦¡ : ¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
Option Compare ³¯­z¦¡ : ¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i·í¤ñ¸û¦r¦ê¸ê®Æ®É¡A©Ò¹w³]¨Ï¥Îªº¤ñ¸û¤èªk¡C
Option Base         ³¯­z¦¡ : ¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­¡C
Option Private     ³¯­z¦¡ : ·í¥DÀ³¥Îµ{¦¡¤¹³\¥i¤Þ¥Î¸ó¶V¦h­Ó±M®×®É¡AOption Private Module ¥i¥HÁקK¼Ò²Õ³Q¥~³¡±M®×©Ò¤Þ¥Î¡C¦ý­Y¥DÀ³¥Îµ{¦¡¤£¤¹³\¸ó±M®×¤Þ¥Î®É¡A«h Option Private ¨S¦³§@¥Î¡C

GBKEE

¦^´_ 12# homeman
Intersect ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò¡C

1. Sub Ex()
   
2.     With ActiveSheet
   
3.     Set isect = Application.Intersect(.Range("A1:E5"), .Range("B1:B100"))
   
4.         If isect Is Nothing Then
   
5.             MsgBox "¨S¦³ ¥æ¶°ªº½d³ò "
   
6.         Else
   
7.          MsgBox isect.Address
   
8.         isect.Select     '¥æ¶°ªº½d³ò
   
9.     End If
   
10.     End With
    
11. End Sub

½Æ»s¥N½X