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キーを押してみると、貴方様の思い通りの動作が確認できるはずです。
この回答へのお礼
お礼日時:2002/12/08 15:09
できました!
お礼が遅くなり、申し訳ございません.
現在出張中で、会社からだとこのサイトにアクセスできないもので、、、
なんだか指導のようなものも入っていたようですが、参考URLも
参考にさせて頂きます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA 任意のセルの選択時、指定のセルの値を表示 1 2023/04/21 08:13
- Excel(エクセル) エクセル関数のXlookupのフィルハンドル機能(類した機能でも可)を知りたいです。 3 2022/09/20 20:02
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) ログインIDの一発入力? 5 2023/07/07 12:30
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) 現在のセルの文字列を右隣のセルの名前にするマクロをつくりたい 4 2023/01/12 09:01
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Windows 7 ショートカットキー 応用編 どういうの主に使いますか? 2 2022/12/28 23:46
- Excel(エクセル) Excelでオートフィルのやり方がわかりません。 写真の十字カーソルが黒く変わるはずなのですが変わら 3 2022/07/01 16:36
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
Excelのマクロでボタンを押すと...
-
エクセルの表を複数枚印刷した...
-
エクセルの、記録を終了したマ...
-
エクセル ボタンに設定したマク...
-
エクセルマクロで、別のブック...
-
エクセル マクロ名にブック名...
-
エクセルでマクロを確認できな...
-
エクセルで、「いいね」のよう...
-
(Excel VBA)シートコピー時マ...
-
エクセルでマクロ(Excel 4.0)...
-
個人用マクロのショートカット...
-
Excelマクロで、稼働中のマクロ...
-
複数のマクロボタンをまとめて...
-
vbaの勉強をしたいのですが、Of...
-
マクロ実行ボタンを自動削除したい
-
リーグ戦(10チーム2コート)作...
-
TeraTermマクロでctrl+alt+del...
-
WORDを使って印刷部数分の連番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
Excelのマクロでボタンを押すと...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
エクセル マクロ名にブック名...
-
エクセルの、記録を終了したマ...
-
複数のマクロボタンをまとめて...
-
VBAについての質問です
-
エクセルマクロで、別のブック...
-
別シートのマクロボタンをマク...
-
Excelマクロで、稼働中のマクロ...
-
エクセルでマクロ(Excel 4.0)...
-
マクロをマクロを使ってコピー...
-
(Excel VBA)シートコピー時マ...
-
Excel:マクロを消す方法教えて...
-
LDPlayerのマクロの編集方法を...
-
EXCELのマクロが他のパソコンで...
-
なぜマクロの記録がなくなって...
おすすめ情報