No.6
- 回答日時:
またまたこんにちは。
No.5です。追加情報。
Sheet2の20行目にコピーするには、
Range("A20")でもいいのですが、
違和感がある場合は次のようにしてください。
---------------------------------------------
ActiveCell.EntireRow.Copy Destination:=Sheets("Sheet2").Range("A20")
---------------------------------------------
この最後の、Range("A20") を
----------------------------------------------
ActiveCell.EntireRow.Copy Destination:=Sheets("Sheet2").Rows(20)
----------------------------------------------
このように、Rows(20) として下さい。
以上です。
No.5
- 回答日時:
こんにちは。
要するにアクティブセルの行を別のシートにコピーしたいということですよね?
アクティブセルの行を求めるのは
ActiveCell.EntireRow
ですから、その行を選択したければ
ActiveCell.EntireRow.Select
そしてその行を別なシートにコピーしたければ
例えば、Sheet2の20行目にコピーしたければ
-------------------------------------------
Sub Test()
ActiveCell.EntireRow.Select
Selection.Copy Destination:=Sheets("Sheet2").Range("A20")
End Sub
--------------------------------------------
Selectしないで直接コピーしたければ
--------------------------------------------
Sub test()
ActiveCell.EntireRow.Copy Destination:=Sheets("Sheet2").Range("A20")
End Sub
----------------------------------------------
以上です。
No.2
- 回答日時:
cells は、単独のセルを選択するものなので、この場合、range を用いる方がよいかと思います。
Range("B2",Range("B6554").End(xlUp)).Select
とすると、データのある列を拾ってくれると思います。
No.1
- 回答日時:
Dim myrow As Long
と変数を宣言した上で、
myrow = ActiveCell.row
で、アクティブセルの行番号を取得し、
Range(Cells(myrow, 30), Cells(myrow, 256)).Select
で、希望のセル範囲が選択できます。
迅速かつ簡潔にご回答いただきありがとうございました。 的確に質問の意を汲んでいただき、胸のつかえがとれた思いです。 急用ができ、ご返事が今になってしまいましたがお許し下さい。 困っていた点は完全に解消いたしました。 本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA 作業後に選択範囲を解除する方法 5 2023/02/17 07:13
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excel VBA アクティブセルからある一定のセルまでの範囲選択
Excel(エクセル)
-
エクセル マクロ 最終列までを全選択
Excel(エクセル)
-
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
-
4
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
5
アクティブセルから、A列最終行までフィルダウン
Excel(エクセル)
-
6
エクセルVBA
Excel(エクセル)
-
7
【Excel VBA】一番右端セルまでの範囲指定の仕方(途中に空白セルあり)
Visual Basic(VBA)
-
8
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
9
(VBA)アクティブセルを起点に任意のセルを選択する方法
Visual Basic(VBA)
-
10
ExcelのVBAで連番を振る。
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
セルの値が0はクリアするマクロ
Excel(エクセル)
-
13
エクセル マクロ 範囲指定で、データの最終行・最終列を取得したい
Excel(エクセル)
-
14
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
15
エクセルVBAで、値が入っている最終行の、右隣の値をコピーして、別のセルに貼り付けるコード
Excel(エクセル)
-
16
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
17
エクセルマクロにて最終行まで数式をコピーする構文
Excel(エクセル)
-
18
Excelのマクロで選択している行のA列を選ぶ方法
Excel(エクセル)
-
19
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
20
B列の最終行までA列をオートフィル
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの2ページ目の作り方
-
エクセルのアポストロフィを一...
-
エクセル:マクロ「Application...
-
エクセルオートフィルで書式を...
-
エクセルで隣接していない複数...
-
Excelに、ダブルクォーテーショ...
-
エクセルで勝手に「折り返して...
-
エクセル 別シートへのコピー...
-
Excel 行の連続データを列に参...
-
エクセルで値だけコピーして背...
-
Excelでコピーした行の挿入を繰...
-
【エクセル】行の高さを規則的...
-
結合したセルを1つのセルにコピ...
-
EXCELのオートフィルの設定を変...
-
Excel VBA 以下のメッセージが...
-
「選択範囲を解除してアクティ...
-
Excel)軽いデーターのはずなの...
-
エクセルでの行数・列数を指定...
-
EXCELシートをPowerPointにきれ...
-
Excelの日付をコピーし、貼り付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
エクセルで勝手に「折り返して...
-
Excel 行の連続データを列に参...
-
EXCELシートをPowerPointにきれ...
-
EXCELのオートフィルの設定を変...
-
「選択範囲を解除してアクティ...
-
メールソフト「サンダーバード...
-
エクセルオートフィルで書式を...
-
Excelでコピーした行の挿入を繰...
-
Excelに、ダブルクォーテーショ...
-
エクセルでの行数・列数を指定...
-
エクセルで隣接していない複数...
-
Excel)軽いデーターのはずなの...
-
エクセルで値だけコピーして背...
-
EXELで複数のとびとびのセルを...
-
エクセル 別シートへのコピー...
-
エクセルで、選択範囲の数値全...
-
エクセル・数値が変化したらカ...
おすすめ情報