[[20230926152444]]　『VBAについて追加質問です』（まるてて）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

『VBAについて追加質問です』（まるてて）

先程質問した"まるてて"です。

さっきのとちょっと似てるのですが、今度は、一番下の表2のB1～E6を表1のF1以降に貼付けるマクロを教えてもらえませんでしょうかm(__)m
データを後ろに足していく感じです。

※表2の一番後ろの入力より右側は何も無いので、どこまででもコピーしても大丈夫です。
※表1･表2は今度は同じシート内だと助かります。

先程教えて頂いたマクロを参考にして色々調べたらできるんじゃないかと思ってやったんですが全くうまくいかず、挫折するのが早くて申し訳ないのですがどれだけやっても無理そうなので、また教えてもらえませんでしょうか？

よろしくお願い致します～m(__)m

表1

	A列	B列	C列	D列	E列	F列	G列
1行		9月12日	9月13日	9月17日	9月21日		
2行	りんご	2	6		4		
3行	みかん		4	3	8		
4行	梨	3			3		
5行	ぶどう	7		2			
6行	バナナ		1		4

表2

	A列	B列	C列	D列	E列	F列	G列
1行		9月14日	9月18日	9月23日	9月28日		
2行	りんご			8			
3行	みかん						
4行	梨	5	2	1			
5行	ぶどう				7		
6行	バナナ	4		6	4

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

　乗りかかった船、あるいは毒食わば皿まで。
　今度はソートは無しね。

＞※表1･表2は今度は同じシート内だと助かります。

　表 2 は 11 行目以降と仮定。さっきよりだいぶシンプル。

 Sub Sample2()
     Range("A11").CurrentRegion.Offset(, 1).Copy
     Range("B1").End(xlToRight).Offset(, 1).PasteSpecial _
         Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
     Application.CutCopyMode = False
 End Sub

（higejee） 2023/09/26(火) 15:52:02

higejeeさんありがとうございます～(´；ω；`)ｳｩｩ

なんとか思い通りにできました～('Д')

マクロ、めちゃくちゃムズイっす(>_<)
あんなプログラム組めるのスゲ～っす!!!

これでしばらくは大丈夫だと思います！
ありがとうございましたm(__)m
（まるてて） 2023/09/26(火) 20:56:31

コメント返信：

[ 一覧(最新更新順) ]

[[20230926152444]] 『VBAについて追加質問です』（まるてて） ページの最後に飛ぶ

[[20230926152444]]　『VBAについて追加質問です』（まるてて）　ページの最後に飛ぶ