A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
こんにちは。
既に幾つか出てますが。。。
Sub Test1()
Range("A1") = 1
Range("B1:B" & Range("B65536").End(xlUp).Row). _
Offset(0, -1).DataSeries Step:=1
End Sub
No.4
- 回答日時:
こんばんわ。
#01の方がおっしゃっている方法でも
いいのでしょうが、
私的には、以下のロジックがいいと思います。
0.A列の連番用の変数nを確保(定義)します。
1.if文で
B列に文字(データ)が入っているかどうかをチェック
入っていれば、A列に数値nを書き込み、
変数nに+1します。
入っていなければ、変数nは、そのままで(次の行へ)
2.上記を
loop文で囲んであげれば、完成すると思います。
その際の関数等のロジックは、勉強して下さい。
参考URL:http://www.rr.iij4u.or.jp/~srec/sub36.htm
参考URL:http://www.geocities.co.jp/SiliconValley-SanJose …
No.3
- 回答日時:
VBAと言うことなので、
最終行を
last=range("a2").CurrentRegion.Rows.Count
で得て
For i=1 to last
Cells(i+1,1)=i '1はA列を示す
Next i
UsedRangeというのも有りCurrentRegionとの
違いをWEB検索でもして調べてみてください。
Range(”A2”)としているのは、A行は見出し
行と仮定しているため。
No.2
- 回答日時:
Sub Macro1()
Dim strData As String
Dim intRow As Integer
Do
intRow = intRow + 1
strData = Cells(intRow, 2)
If strData = "" Then Exit Do
Cells(intRow, 1) = intRow
Loop Until strData = ""
End Sub
No.1
- 回答日時:
その前にセルA1に1、セルA2に2を入力、セルA1:A2を選択して
選択範囲の右下の黒い■(フィルハンドル)をダブルクリックすると
B列にある限りの連番を振れるのをご存知ですか?
(ただし途中に空白があるとそこで途切れます)
1.上記の作業を「マクロの記録」で作成する。
2.コードができたらB列の行により3パターンに分かれるので
1件の時、2件の時、3件以上に分けて考えてください。
3.1件の時:A1に1をいれておしまい。
4.2件の時:A1に1、A2をいれておしまい。
5.3件以上の時:1.のコードを実行。
いかがですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAで重複データを合算したい(時間) 1 2022/12/08 23:06
- Visual Basic(VBA) EXCEL VBAでA列にある空白行より下の行すべてを削除する方法を教えてください。 3 2023/02/17 07:02
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 3 2022/06/12 11:17
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) VBA 罫線について B列3行目から21行毎にデータがはいります。 データがはいったらデータが入った 6 2022/11/15 17:22
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excel VBA 自動で連番をわりふる
Excel(エクセル)
-
excelVBA 項目ごとに連番をふりたい
Excel(エクセル)
-
[Excel VBA]空白セル以外に連番をつけるマクロを教えてください
Excel(エクセル)
-
-
4
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
5
Excel VBAで条件ごとの自動採番について
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
8
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
VBAで文字列を数値に変換したい
Excel(エクセル)
-
11
【VBA】 通し番号の入力について
その他(Microsoft Office)
-
12
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
13
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
14
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
15
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
16
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
17
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
18
EXCELマクロを使い、空白行ではさまれた範囲の数字を合計
Excel(エクセル)
-
19
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
20
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
スマートな関数を教えて下さい。
-
PowerPointで表の1つの列だけ...
-
関数を教えて下さい。
-
エクセルで最初のスペースまで...
-
「B列が日曜の場合」C列に/...
-
2つのエクセルのデータを同じよ...
-
エクセル 時間帯の重複の有無
-
エクセル 文字数 多い順 並...
-
エクセルの項目軸を左寄せにしたい
-
EXCELで 一桁の数値を二桁に
-
エクセルの並び変えで、空白セ...
-
エクセル(勝手に太字になる)
-
50人を数回、グループ分けする...
-
オートフィルターをかけ、#N/A...
-
エクセルで文字が混じった数字...
-
VBAで文字列を数値に変換したい
-
エクセル 同じ値を探して隣の...
-
Excel 別ファイルに自動的に反...
-
エクセルの表から正の数、負の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル 同じ値を探して隣の...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
エクセル 文字数 多い順 並...
-
EXCELで 一桁の数値を二桁に
-
Excelで半角の文字を含むセルを...
-
エクセルで文字が混じった数字...
-
エクセルの項目軸を左寄せにしたい
-
Excel、市から登録している住所...
-
エクセルで、列の空欄に隣の列...
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
-
VBAで文字列を数値に変換したい
-
A列がない・・・A列が非表示に...
-
文字列に数字を含むセルを調べたい
-
50人を数回、グループ分けする...
おすすめ情報