[[20260512105509]]　『コピペのマクロ』（トリ）　ページの最後に飛ぶ

『コピペのマクロ』（トリ）

■以下のマクロを教えていただけると助かります。

（１）Ｆ２～Ｈ２に日付など入力する→Ｆ２～Ｈ２の入力内容がＢ１～Ｄ１に反映される
（２）Ａ１に、Ａ列のNO,１～１５のいずれかを入力すると、入力したNO,の行（Ｂ～Ｄ列）に、Ｂ１～Ｄ１がコピペされる。

★（１）F２～ H２に「あ　タ　4/1(水)」と入力　→Ｂ１～Ｄ１に「あ　タ　4/1(水)」と反映される
　（２）Ａ１に「１」とすると、Ａ列のNO,「１」のＢ４～Ｄ４列にＢ１～Ｄ１の「あ　タ　4/1(水)」がコピペされる

        Ａ     Ｂ        Ｃ　　　　 Ｄ 　　 　   F 　　　  G 　　  　H　  列
１　　　１     =F２      =G２　　　 =H２　　　   平仮名　　片仮名　　日付
２　　　　　　　　　　　　　　　　　　　　　　　 あ　　　　タ　　　  4/1(水)
３　　　NO,　　平仮名    片仮名　　　日付
４　　　１     あ        タ　　　　　4/1(水)
５　　　２
６　　　３
・　　　・
・　　　・
18　　　15
行
★（１）F２～ H２に「か　ナ　4/2(金)」と入力　→Ｂ１～Ｄ１に「か　ナ　4/2(金)」と反映される
　（２）Ａ１に「２」とすると、Ａ列のNO,「２」 の Ｂ５～Ｄ５列 にＢ１～Ｄ１の「か　ナ　4/2(金)」がコピペされる
　　　　A　　　　Ｂ　　　　Ｃ　　　　 Ｄ 　 　     F 　　  　 G 　　　  H　  列
１　　　２　　　=F1　　　　=G1　　　　=H1　　　　　平仮名　　 片仮名　  日付
２　　　　　　　　　　　　　　　　　　　　　　　　 か　　　　　ナ　　　4/2(木)
３　　　NO,　　平仮名　　　片仮名　　　日付
４　　　１　　 あ　　　　　タ　　　　　4/1(水)
５　　　２　　 か　　　　　ナ　　　　　4/2(木)
６　　　３
・　　　・
・　　　・
18　　　15
行

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 反映されるとかややこしいし質問は無視してます

 Range("D1:G1").Copy
 Range("B4").PasteSpecial xlPasteValues
（やや） 2026/05/12(火) 15:00:47

 コマンドボタンに登録して A1に入力したらコマンドボタンをクリックする

 Sub sample()
   Dim i As Long
   On Error Resume Next
     i = WorksheetFunction.Match(Range("A1").Value, Range("A4", Cells(Rows.Count, 1).End(xlUp)), 0)
   On Error GoTo 0
   If i > 0 Then
      Range("B1:D1").Copy Range("B3:D3").Offset(i)
   End If
 End Sub
（とおりすがり） 2026/05/12(火) 15:34:33

 とおりすがりさん、
 それだと式がコピーされて、違うところの値を参照してしまわないでしょうか。

 もし転記先の書式が設定されてなければ、
「値と書式のみ貼り付け」にするとよいのでは。
（とおりすがり２） 2026/05/12(火) 16:13:32

 そうですね...

 修正

 Sub sample()
   Dim i As Long
   On Error Resume Next
     i = WorksheetFunction.Match(Range("A1").Value, Range("A4", Cells(Rows.Count, 1).End(xlUp)), 0)
   On Error GoTo 0
   If i > 0 Then
      Range("F2:G2").Copy Range("B3:D3").Offset(i)
   End If
 End Sub
（とおりすがり） 2026/05/12(火) 16:54:27

質問者へ
２　=F1　=G1　=H1　とする目的は何ですか。
か　ナ　4/1(木)　を直接下へ順にコピペしていけばいいと思いますけど。
（分からん） 2026/05/12(火) 17:00:32

コメント返信：

[ 一覧(最新更新順) ]

[[20260512105509]] 『コピペのマクロ』（トリ） ページの最後に飛ぶ

[[20260512105509]]　『コピペのマクロ』（トリ）　ページの最後に飛ぶ