GBKEE

回復 1# bear0925900003
試試看  (沒有附檔是否如此)

1. Option Explicit
   
2. 'Intersect 方法 傳回 Range 物件，此物件代表兩個或多個範圍重疊的矩形範圍。
   
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) = "結存" Then .Merge Else .UnMerge
   
7.         End With
   
8.     End If
   
9. End Sub

複製代碼

GBKEE

回復 4# bear0925900003
2# 程式碼

1. If Target.Cells(1) = "結存" Then .Merge Else .UnMerge

複製代碼

Else ->   <> "結存"

GBKEE

回復 7# bear0925900003
應該是你要附上完整的檔案,不然我怎知你的構想!