
お世話になります。
Cのセルが空白でなかったら、Aのセルに順番に数値を入力したいのですが
このコードを実行すると、画像右のようにCの空白部分で
Aの番号が飛んでしまいます。
左の画像のようにしたいのですが、どなたか手直しを
していただけないでしょうか。
よろしくお願いします。
Sub NO1()
Dim i As Long
i = 9
For i = 9 To 35
If Range("C" & i).Value = "" Then
Range("A" & i).Value = ""
Else
Range("A" & i).Value = i - 8
End If
Next
End Sub

No.1ベストアンサー
- 回答日時:
入力する番号を別変数に割り当てれば良いかと
一例です
Sub NO1()
Dim i As Long, n As Long
For i = 9 To 35
If Range("C" & i).Value = "" Then
Range("A" & i).Value = ""
Else
n = n + 1
Range("A" & i).Value = n
End If
Next
End Sub
No.6
- 回答日時:
こんばんは!
すでに色々回答は出ていますが・・・
わざわざVBAでなくてもNo.2さんの数式でできると思います。
A9セルに
=IF(C9="","",COUNTA(C$9:C9))
としてフィルハンドルで下へコピー!
C列に数式が入っていて、数式によって空白に見えているのであれば
=IF(C9="","",COUNTIF(C$9:C9,"?*"))
という数式で対応できると思います。
どうしてもVBAでやりたい!というコトであれば
Sub Sample1()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "C").End(xlUp).Row
With Range(Cells(9, "A"), Cells(lastRow, "A"))
.Formula = "=IF(C9="""","""",COUNTA(C$9:C9))"
.Value = .Value
End With
End Sub
でもいけると思います。
※ C列に数式が入っている場合は
コード内の数式の行も変えます。m(_ _)m
tom04さん、早速回答ありがとうございました。
たくさんの方々に、色々な方法を教えていただき
勉強になります。
この方法でもやってみたいと思います。
No.5
- 回答日時:
こんなのでも行けるかも・・・。
Sub sample()
With Range("C9:C35").SpecialCells(xlCellTypeConstants, 23).Offset(, -2)
.Cells(1).Value = 1
.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
End With
End Sub
ママチャリさん、早速回答していただきありがとうございました。
色んな方法があって、素人には勉強になります。
この方法でもやってみます。
No.4
- 回答日時:
ちょっと違った方法で。
Sub megu()
Dim r As Range, rr As Range
Dim n As Long
n = 0
For Each r In Range("C9:C35").SpecialCells(xlCellTypeConstants).Areas
For Each rr In r
n = n + 1
rr.Offset(, -2).Value = n
Next
Next
End Sub
めぐみんさん
早速、回答していただきありがとうございました。
色んなやり方があって、素人には勉強になります。
お世話になりました。
No.2
- 回答日時:
こんにちは
入力する数字を、「i - 8」としているので、「行番号 - 8」となっていますね。
別に番号をカウントする変数(例えばn)を設けておけばよろしいかと思います。
Dim i As Long, n As Long
n = 1
For i = 9 To 35
If Range("C" & i).Value = "" Then
Range("A" & i).Value = ""
Else
Range("A" & i).Value = n
n = n + 1
End If
Next
でも、この程度であれば、A9セルに
=IF(C9="","",COUNT(A$8:A8)+1)
を入力して、下方にフィルコピーでもこと足りると思います。
(これなら、C列に追加入力があると自動的に附番されます)
※ 上式はA1:A8が空白であるという仮定で作成しています。そうでない場合は「+1」の部分の数値を調整することで対応できると思います。
fujillinさん、早速回答していただきありがとうございました。
ご指摘のようにこれまでは、数式を入力してやっていたのですが
事情があってマクロですることにしました。
A1:A8は空白でないので、「+1」の部分の数値を変えて
やってみます。
お世話になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
-
4
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
5
VBA 何かしら文字が入っていたら
Visual Basic(VBA)
-
6
VBA 列が空白なら別のマクロへ移動したい
Visual Basic(VBA)
-
7
エクセル マクロ 貼り付け先が空白でない場合 1行下に貼りつける
Excel(エクセル)
-
8
VBA 空白行に転記する
Visual Basic(VBA)
-
9
Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range
Excel(エクセル)
-
10
UserForm1.Showでエラーになります。
工学
-
11
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
12
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
13
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
14
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
15
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
16
エクセルで空白以外のセルの値を取りたいのですが
その他(Microsoft Office)
-
17
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
18
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
19
VBA 別ブックからコピペしたいのですが、軽くしたいです
Visual Basic(VBA)
-
20
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のExcelファイルをマージす...
-
VBAでCOPYを繰り返すと、処理が...
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】並び替えの範囲が、...
-
VBAの「To」という語句について
-
vbsでのwebフォームへの入力制限?
-
Vba セルの4辺について罫線が有...
-
【マクロ】変数を使った、文字...
-
Vba FileSystemObject オブジェ...
-
エクセルのマクロについて教え...
-
VBAでユーザーフォームを指定回...
-
【ExcelVBA】値を変更しながら...
-
【マクロ】シートの変数へ入れ...
-
エクセルのVBAコードと数式につ...
-
ワードの図形にマクロを登録で...
-
改行文字「vbCrLf」とは
-
エクセルVBA 検索結果を隣のシ...
-
【マクロ】モジュール変数の記...
-
Excelのマクロについて教えてく...
-
ダブルクリックで貼り付けた画...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba Array関数について教えてく...
-
VBAでCOPYを繰り返すと、処理が...
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】シートの変数へ入れ...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【マクロ】並び替えの範囲が、...
-
Vba セルの4辺について罫線が有...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
VBAでユーザーフォームを指定回...
-
【マクロ】開いているブックの...
-
エクセルの改行について
-
vb.net(vs2022)のtextboxのデザ...
-
エクセルのVBAコードと数式につ...
-
算術演算子「¥」の意味について
-
Excelのマクロについて教えてく...
-
改行文字「vbCrLf」とは
-
ワードの図形にマクロを登録で...
-
VBAの「To」という語句について
-
【マクロ】変数を使った、文字...
おすすめ情報