F13 C13の解決方法

質問者が納得このページと最新のページの図が違うことや、質問内容に対する説明が少し複雑になりすぎていて、こんな簡単な回答でいいのかと少し不安ではありますが、質問を読んだ限りではこれだけでいいのではと思っています。-------------------【回答】①確定ボタンへ【このページの場合】[D1:D13,F1:G13].Copy IIf([A18] = "", [A18], Cells(18, Columns.Count).End(1).Offset(, 1))【最新のページの場合】[D1:D7,F...

質問者が納得こんにちは～＾＾Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim s As String If Intersect(Target, Range("C14,F7,F14,H14")) Is Nothing Then Exit Sub With Target Select Case .Address(0, 0) Case "C14": s = "F2" Case "...