Merge single/multiple cell handling

This commit is contained in:
updsv7
2026-04-13 12:06:36 +09:00
parent f17e228412
commit f29ea2874b

View File

@@ -20,7 +20,6 @@ Private Sub Worksheet_Change(ByVal Target As Range)
' === Fill D, E when C column changes ===
If Target.Column = 3 And Target.Row >= 7 Then
If Target.Count > 1 Then
Dim cell As Range
For Each cell In Target
If Trim(cell.Value) = "" Then
@@ -29,13 +28,6 @@ Private Sub Worksheet_Change(ByVal Target As Range)
Call FillFromKukanMaster(Me, cell.Row)
End If
Next
Else
If Trim(Target.Value) = "" Then
Call ClearRowData(Me, Target.Row)
Else
Call FillFromKukanMaster(Me, Target.Row)
End If
End If
End If
End Sub