お世話になります。
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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
このQ&Aを見た人はこんなQ&Aも見ています
-
カンパ〜イ!←最初の1杯目、なに頼む?
飲み会で最初に頼む1杯、自由に頼むとしたら何を頼みますか? 最初はビールという縛りは無しにして、好きなものを飲むとしたら何を飲みたいですか。
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
これが怖いの自分だけ?というものありますか?
人によって怖いもの(恐怖症)ありませんか? 怖いものには、怖くなったきっかけやエピソードがあって聞いてみるとそんな感覚もあるのかと新しい発見があって面白いです。
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
セルに値が入っていた時の処理
Visual Basic(VBA)
-
9
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
10
VBA 空白行に転記する
Visual Basic(VBA)
-
11
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
12
VBAでEmpty値って何ですか?
Excel(エクセル)
-
13
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
14
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
15
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
16
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
17
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
18
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
19
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
20
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~12/2】 国民的アニメ『サザエさん』が打ち切りになった理由を教えてください
- ・ちょっと先の未来クイズ第5問
- ・【お題】ヒーローの謝罪会見
- ・これが怖いの自分だけ?というものありますか?
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・【大喜利】【投稿~11/22】このサンタクロースは偽物だと気付いた理由とは?
- ・お風呂の温度、何℃にしてますか?
- ・とっておきの「まかない飯」を教えて下さい!
- ・2024年のうちにやっておきたいこと、ここで宣言しませんか?
- ・いけず言葉しりとり
- ・土曜の昼、学校帰りの昼メシの思い出
- ・忘れられない激○○料理
- ・あなたにとってのゴールデンタイムはいつですか?
- ・とっておきの「夜食」教えて下さい
- ・これまでで一番「情けなかったとき」はいつですか?
- ・プリン+醤油=ウニみたいな組み合わせメニューを教えて!
- ・タイムマシーンがあったら、過去と未来どちらに行く?
- ・遅刻の「言い訳」選手権
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Vba 型が一致しません(エラー1...
-
Excelのマクロについて教えてく...
-
VBA Application.Matchについて...
-
VBA 別ブックからコピペしたい...
-
Excel マクロについて詳しい方...
-
VBAで特定の文字が入った行をコ...
-
VBAのエラー表示の対処法について
-
VBAでセルの書式を変えずに文字...
-
[Excel VBA]特定の条件で文字を...
-
Excelのマクロについて教えてく...
-
【VBA】値を変更しながら連続で...
-
現在のブックを閉じないで、マ...
-
Visualbasicの現状について教え...
-
Excelのマクロについて教えてく...
-
ExcelのVBAコードについて教え...
-
エクセルでCDOを使ったメール送...
-
エクセルのマクロについて教え...
-
VBA コードどこがおかしいですか?
-
VB.net(VB)で、フォームにExcel...
-
【ExcelVBA】インデックスが有...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのエラー表示の対処法について
-
VBA 別ブックからコピペしたい...
-
Visualbasicの現状について教え...
-
VBAのループ処理について教えて...
-
Excelのマクロについて教えてく...
-
VBA Application.Matchについて...
-
VBAで特定の文字が入った行をコ...
-
Excelのマクロについて教えてく...
-
修正依頼:【VBA】 結合セルに...
-
VBAでセルの書式を変えずに文字...
-
【ExcelVBA】5万行以上のデー...
-
VBA 2次元配列の出力
-
Excelのマクロについて教えてく...
-
VBA 別ブックから条件に合うも...
-
【VBA】 結合セルに複数画像と...
-
Excel マクロについて詳しい方...
-
【VBA】値を変更しながら連続で...
-
【ExcelVBA】インデックスが有...
-
エクセルvbaの対象セルに色をつ...
-
エクセルのVBAコードについて教...
おすすめ情報