GBKEE

¦^´_ 1# bear0925900003
¸Õ¸Õ¬Ý  (¨S¦³ªþÀɬO§_¦p¦¹)

1. Option Explicit
   
2. 'Intersect ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò¡C
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.     If Not Intersect(Range("b1:b50"), Target.Cells(1)) Is Nothing Then
   
5.         With Range("F" & Target.Cells(1).Row & ":N" & Target.Cells(1).Row)
   
6.           If Target.Cells(1) = "µ²¦s" Then .Merge Else .UnMerge
   
7.         End With
   
8.     End If
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# bear0925900003
2# µ{¦¡½X

1. If Target.Cells(1) = "µ²¦s" Then .Merge Else .UnMerge

½Æ»s¥N½X

Else ->   <> "µ²¦s"

GBKEE

¦^´_ 7# bear0925900003
À³¸Ó¬O§A­nªþ¤W§¹¾ãªºÀÉ®×,¤£µM§Ú«çª¾§Aªººc·Q!