GBKEE

¦^´_ 1# tonycho33
sheet1¬O­ìÀÉ(¸ê®Æ®w) Âà´«¦¨sheet2   ¬Ý¤£¥X®t§O¦b­þ¸Ì,¦p¦óÂà´«¤]¬Ý¤£À´

GBKEE

¦^´_ 4# register313
¤]¥i¦p¦¹

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     'Target:µ{¦¡©Ò±µ¦¬ªºÅܼÆ, As Range:  Àx¦s®æ(ª«¥ó)
   
4.     Dim xMatch As Variant, Rng As Range
   
5.     Application.EnableEvents = False
   
6.     If Target.Column = 2 And Target.MergeCells Then  '¦bBÄæ ¥B¬O MergeCells(½d³ò©Î¼Ë¦¡¥]§t¦X¨ÖÀx¦s®æ)
   
7.         Set Rng = Target.Offset(, 1).Resize(3, 8)
   
8.         With Sheets("SHEET1")
   
9.             xMatch = Application.Match(Target, .[B:B], 0)  'Match(¤u§@ªí¨ç¼Æ)
   
10.             If IsNumeric(xMatch) Then                      '§ä¨ì¶Ç¦^¼Æ¦r
    
11.                 Rng = .Cells(xMatch, "B").Offset(, 1).Resize(3, 8).Value
    
12.             Else
    
13.                 Rng.Value = ""
    
14.             End If
    
15.         End With
    
16.     End If
    
17.     Set Rng = Nothing                               'ÄÀ©ñÅܼÆ
    
18.     Application.EnableEvents = True
    
19. End Sub

½Æ»s¥N½X