Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11603 / 13645 ツリー ←次へ | 前へ→

【15186】セルを結合してオートフィルでコピー RIN 04/6/17(木) 11:39 質問[未読]
【15191】Re:セルを結合してオートフィルでコピー Asaki 04/6/17(木) 12:32 回答[未読]
【15192】Re:セルを結合してオートフィルでコピー Jaka 04/6/17(木) 12:35 回答[未読]
【15205】Re:セルを結合してオートフィルでコピー RIN 04/6/17(木) 13:49 お礼[未読]

【15186】セルを結合してオートフィルでコピー
質問  RIN  - 04/6/17(木) 11:39 -

引用なし
パスワード
   こんにちは。

セル"A1"と"B1"を結合して、
"4月"と入力してオートフィルで
"Y1"までコピーし、4月〜3月まで
表示させたいのですが、自動マクロで
やるとコードが長くなってしまします。
できるだけ簡単なコードにしたいのですが
どうすればいいでしょうか?
初歩的な質問で申し訳ありませんが、教えてください。
よろしくお願いします。

【15191】Re:セルを結合してオートフィルでコピー
回答  Asaki  - 04/6/17(木) 12:32 -

引用なし
パスワード
   こんにちは。

A.Selecct
Selection.B
となっているところは、大体
A.B
といった感じで、Select と Selection をセットで省略して1行で書いてしまっても動きます。

この方針で、マクロを編集されては?

【15192】Re:セルを結合してオートフィルでコピー
回答  Jaka  - 04/6/17(木) 12:35 -

引用なし
パスワード
   こんにちは。

>"Y1"までコピーし、4月〜3月まで
Y1まで?。

>表示させたいのですが、自動マクロで
>やるとコードが長くなってしまします。
>できるだけ簡単なコードにしたいのですが

どんな風に長くなるのか解りませんけど、
マクロ記録の余分な部分を整理してみました。
長いですかねぇ?

Sub Macro1()
  Range("A1:B1").Merge
  Range("A1").Value = "4月"
  Range("A1:B1").AutoFill Destination:=Range("A1:Z1"), Type:=xlFillDefault
End Sub

【15205】Re:セルを結合してオートフィルでコピー
お礼  RIN  - 04/6/17(木) 13:49 -

引用なし
パスワード
   Jakaさん、Asakiさん回答ありがとうございます。

>>"Y1"までコピーし、4月〜3月まで
>Y1まで?。

すいません。"X1"までの間違いでした。

Jakaさんのコードの通りに試したら
うまくできました!
助かりました。
ありがとうございまいます!!

11603 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free