No.1ベストアンサー
- 回答日時:
Sub Sentaku()
ul = Range("A1").End(xlDown).Row '上のデータ行
ll = Range("A65536").End(xlUp).Row '下のデータ行
Range("B" & ul & ":D" & ll).Select
End Sub
舌足らずの質問にもかかわらず、ドンピシャの回答を頂きました。
上のデータ行は一定なのですが、下のデータ行を最下方からEndupして、列数を調べるやり方は、自分のやり方に合ってました。
既に入力済みのデータ行を含めての範囲設定は、分かってましたが、含めない範囲を設定する仕方が参考書を見ても分からず、困ってました。
それに、頂いた回答は、応用が聞くと思いますので、助かります。
No.4
- 回答日時:
単純で簡単やりかたですが。
開始行と終行が判っているということで。
F1に開始行数(2)、G1に終行数(5)を入力してマクロを実行します。
Sub 選択()
Dim rg As String
Dim StartNo As String
Dim EndNo As String
StartNo = Range("F1")
EndNo = Range("G1")
rg = "B" + StartNo + ":" + "D" + EndNo
Range(rg).Select
End Sub
セルを変数代入値として使えば色々応用が利きます、BとDも同じ様に変数を使えば簡単で自由に範囲を選択できます。
ご免なさい!質問の仕方が悪くて。
開始行は一定ですが、終行は不定なんです。
マクロの前段があって、A列のデータは別のデータ表から抽出・貼付けします。B~D列はA列の数値を利用した計算式(別の所に記載したもの)をコピペしたかったわけです。
でも、お教えいただいたマクロも別のところで使えそうです。
ありがとうございました。
No.3
- 回答日時:
こんにちは。
>例えばA列の2~5にデータが入っている場合に、
「例えば」っていうのは、それ以外もあるというわけですね。
A列の1 行目からある場合、
A列のデータが途中で間が空いている場合、
A列のデータが1行しかない場合、
A列のデータが数式の場合
A列のデータが、文字列と数字、数式が混在の場合
A列が何もない場合
までは、想定範囲とします。
'------------------------------
Sub Test1()
Dim i As Variant
Dim k As Variant
Dim j As Long
On Error Resume Next
With ActiveSheet
If WorksheetFunction.CountA(.Columns(1)) = 0 Then Exit Sub
j = .Cells(.Rows.Count, 1).End(xlUp).Row
Set r = .Range(.Cells(1, 1), .Cells(j, 1))
With r.SpecialCells(2, 23)
i = .Areas(1).Cells(1).Row
End With
With r.SpecialCells(-4123, 23)
k = .Areas(1).Cells(1).Row
End With
If Not (IsEmpty(i) Or IsEmpty(k)) And k < i Then i = k
If IsEmpty(i) Then i = k
On Error GoTo 0
.Cells(i, 2).Resize(j - i + 1, 4).Select
End With
End Sub
舌足らずの質問で、ご免なさい!
小生、マクロはマクロの記録を継ぎ接ぎして使っているレベルです。
お蔭様で何人かの方から、回答いただいて、一番簡単なものを使わせていただきました。
頂いた回答は、小生の理解のレベルをはるかに超えておりました。
もっと勉強しないければ、と思います。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロを教えてください。 4 2022/10/06 08:53
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) マクロ セルの選択 5 2022/08/12 22:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUPの列番号の最大は?
-
エクセルで?
-
エクセルで複数列の検索をマク...
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
LEFT関数とIF関数の組み合わせ...
-
VBAで別ブックの列を検索し、該...
-
えABのある列って
-
エクセル 重複 隣の列 一番...
-
VBA 指定した列にある日時デー...
-
エクセルマクロの組み方
-
CSVファイルの「0落ち」にVBA
-
Excelの行数、列数を増やしたい...
-
エクセルのソートで、数字より...
-
エクセルで住所を県と市・郡と...
-
Excel vba 重複行削除
-
列方向、行方向の定義
-
Accessのレポートで繰り返し表...
-
VBA
-
Excel文字列一括変換
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
LEFT関数とIF関数の組み合わせ...
-
マクロについて教えてください。
-
「段」と「行」の違いがよくわ...
-
VLOOKUPの列番号の最大は?
-
<急募>エクセルデータの関数を...
-
Excelの行数、列数を増やしたい...
-
CSVファイルの「0落ち」にVBA
-
VBA 指定した列にある日時デー...
-
VBAで別ブックの列を検索し、該...
-
エクセルで住所を県と市・郡と...
-
エクセルマクロの組み方
-
エクセルマクロ 並び替え 手動...
-
エクセルで複数列の検索をマク...
-
Excel文字列一括変換
-
VBAで結合セルを転記する法を教...
-
エクセルマクロPrivate Subを複...
-
エクセル 重複 隣の列 一番...
-
エクセル マクロ 範囲指定で...
-
リストからデータを紐付けしたい
おすすめ情報