No.1
- 回答日時:
初めまして。
マクロを組めば、貴方様のおやりになりたいことは簡単に実現させることが出来ると思います。
もし私でよろしければサンプルマクロを組んでみたいと思います。ご希望の節はお知らせ下さい。
お手数をおかけいたしますが、よろしくお願いいたします。
この回答への補足
情報ありがとうございます。
そうなんですか。当方、マクロは敷居が高いと思っていて
いままでに組んだ経験は全く無いです。
もしよろしければ是非サンプルマクロの
組み方を教えていただけないでしょうか。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
こんばんは。
早速サンプルマクロを組んでみました。次のように操作してみて下さい。・新規ブックを立ち上げ、ALT+F11キーを押してVBE画面を表示させ、画面左上のVBAProjectと書かれている文字にマウスポインターをあわせて右クリック後表示されたプルダウンメニューの中の挿入をクリックし、表示されたプルダウンメニューの中の標準モジュールをクリックする。
・表示された画面の右側の白い部分に下記のコードをコピー&ペーストする。
Sub Macro1()
Dim myClm As Integer
Dim myRow As Long
Dim myRange1 As String
Dim myRange2 As String
myClm = Selection.Column
myRow = ActiveSheet.Cells(Rows.Count, myClm).End(xlUp).Row
If myClm <> 1 Then
myRow = ActiveSheet.Cells(Rows.Count, myClm - 1).End(xlUp).Row
End If
myRange1 = Selection.Address
If ActiveSheet.Range(myRange1).Offset(0, -1).Value = "" Then Exit Sub
myRange2 = ActiveSheet.Cells(myRow, myClm).Address
myRange2 = myRange1 & ":" & myRange2
ActiveSheet.Range(myRange1).AutoFill Destination:=ActiveSheet.Range(myRange2)
End Sub
・ALT+F11キーを再度押してエクセルの画面にもどり、ツール→マクロ→マクロを順にクリックし、表示されたダイアログボックスのマクロ名と書かれている下の広いボックスにBook1.Macroと書かれているのでそれをクリックして狭いボックスに同じ名前が入力されたのを確認する。
・ダイアログボックスのマクロの保存先と書かれている右のボックスの中が開いているすべてのブック(もしなっていない時は、右側の▼ボタンを押して表示された開いているすべてのブックをクリックすると表示される)になっていることを確認後、右側のオプションと書かれているボタンをクリックする。
・表示されたダイアログボックスのカーソルが点滅しているボックスの中にアルファベットの半角小文字でeと入力してOKボタンでこのダイアログボックスを閉じる
・×ボタンをクリックしてマクロダイアログボックスも閉じる。
Ctrl+eキーを押してみると、貴方様の思い通りの動作が確認できるはずです。
できました!
お礼が遅くなり、申し訳ございません.
現在出張中で、会社からだとこのサイトにアクセスできないもので、、、
なんだか指導のようなものも入っていたようですが、参考URLも
参考にさせて頂きます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBAでのオートフィル
Excel(エクセル)
-
オートフィルのマクロを作りたい
Excel(エクセル)
-
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
複数のマクロボタンをまとめて...
-
エクセルの表を複数枚印刷した...
-
エクセル マクロ名にブック名...
-
エクセルで、「いいね」のよう...
-
Excelマクロをバックグラウンド...
-
Excelマクロで、稼働中のマクロ...
-
(Excel VBA)シートコピー時マ...
-
Excel:マクロを消す方法教えて...
-
Excelのマクロでボタンを押すと...
-
個人用マクロのショートカット...
-
テキスト・データをエクセルの...
-
TeraTermマクロでctrl+alt+del...
-
エクセル ボタンに設定したマク...
-
ExcelVBAでShowDatasFormがエラ...
-
エクセルマクロで、別のブック...
-
なぜマクロの記録がなくなって...
-
エクセルの、記録を終了したマ...
-
Outlookにマクロの記録はないの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル ボタンに設定したマク...
-
Excelのマクロでボタンを押すと...
-
エクセルの、記録を終了したマ...
-
複数のマクロボタンをまとめて...
-
エクセル マクロ名にブック名...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
Excelマクロで、稼働中のマクロ...
-
エクセルでマクロ(Excel 4.0)...
-
エクセルマクロで、別のブック...
-
マクロをマクロを使ってコピー...
-
エクセルで明日の日付を表示す...
-
Excelのマクロ名の並び順の法則...
-
(Excel VBA)シートコピー時マ...
-
Excelマクロをバックグラウンド...
-
Ctrl+Zが使えない
-
別シートのマクロボタンをマク...
-
LDPlayerのマクロの編集方法を...
おすすめ情報