No.4ベストアンサー
- 回答日時:
条件の解釈が違っているかもしてませんが、
以下のマクロを標準モジュールに登録してください。
Shee1に作用するのではなく、アクティブシート(表示されているシート)
に作用します。
シートを直接書き換えるので、必ずバックアップをとってから行ってください。
Public Sub A列変更()
Dim ws As Worksheet
Dim wrow As Long
Dim maxrow As Long
Set ws = ActiveSheet
maxrow = ws.Cells(Rows.Count, 1).End(xlUp).Row 'sheetの最大行取得
Dim pval As String
pval = ""
For wrow = 2 To maxrow
If Cells(wrow, 2).Value = "N" Then
Cells(wrow, 1).Value = pval
End If
pval = Cells(wrow, 1).Value
Next
MsgBox ("完了")
End Sub
ご丁寧に回答頂きありがとうございました。
情報が不足しており申し訳ございませんでした。
教えて頂いたマクロで、やりたいことが実現できました。
自分でも書けるように勉強したいと思います。
本当にありがとうございました。
No.3
- 回答日時:
>B10が空白になることはありません。
ということは、
①Nが存在する場合、必ず連続して2行以上存在する。
②2行目にNが存在することはない。
ということでしょうか。
No.2
- 回答日時:
こんばんは
>このようなことはVBAで可能なのでしょうか。
B2がNの場合にどうするのか不明ですけれど、基本的には可能です。
ご質問とは異なりますが、以下に関数で行う方法の例をご参考までに。
1)C1セルに以下の式を入力
=IF((ROW()=1)+(B1<>"N"),A1,OFFSET(C1,-1,0))
2)C1セルをC12までフィルコピー
以上で、お求めの内容がC列に表示されると思います。
続いて、
3)C列を選択して、カット。(Ctrl+X)
4)A列を選択して、「値をペースト」。(Alt+H V S V Enter)
※ どうしてもマクロが必要な場合は、上記の「マクロの記録」をとることでも作成可能と思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Visual Basic(VBA) 【Excel VBA】表の列の値毎に分割するには?(値がブックのファイル名) 9 2021/11/16 18:25
- Visual Basic(VBA) 【Excel VBA】シートの中から特定の文字列のセル位置を取得するには? 6 2021/11/03 23:11
- Excel(エクセル) Excel 判別して色変え 2 2021/12/02 18:38
- Excel(エクセル) エクセルで別ブックの複数シートを参照VBA 4 2021/12/08 23:14
- Excel(エクセル) IF文の管理を簡単にしたい 4 2021/11/07 11:23
- Visual Basic(VBA) Excelで、マウスで範囲を選択した列文字を選択した列の左の列に結合させるVBAをご教授願います 1 2022/02/05 09:24
- Visual Basic(VBA) 【関数orVBA】カーソルのある行を黄色にし、A列の値を別シートに表示できますか? 4 2021/12/28 00:03
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- その他(Microsoft Office) Excel VLOOKUP関数複数条件の求め方について 4 2021/10/25 10:28
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
-
4
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
5
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
6
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
7
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
EXCEL VBA 選択範囲をTargetに
会計ソフト・業務用ソフト
-
10
VBマクロ 色の付いたセルを含む行をコピーしたい。
Visual Basic(VBA)
-
11
VBA 見つからなかった時の処理
Excel(エクセル)
-
12
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
13
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
14
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
15
VBA シート名が一致した場合の転記内容について
Visual Basic(VBA)
-
16
VBAで特定の文字を探して隣のセルに色を付けたい
Excel(エクセル)
-
17
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
18
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
19
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
20
InputBoxに入力した言葉をシート名にしたい!
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAのFind関数で結合セルを検索...
-
複数処理 Worksheet_Change(ByV...
-
B列の最終行までA列をオート...
-
IIF関数の使い方
-
VBAで、特定の文字より後を削除...
-
VBAを使って検索したセルをコピ...
-
エクセル 2つの表の並べ替え
-
Changeイベントでの複数セルの...
-
データグリッドビューの一番最...
-
VBAで、離れた複数の列に対して...
-
VBA UserFormからの転記で
-
マクロ 最終列をコピーして最終...
-
VBA 列が空白なら別のマクロへ...
-
複数の列の値を結合して別の列...
-
VBマクロ 色の付いたセルを...
-
VBAの構文 3列置きにコピーし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBA指定行削除
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
エクセルについて
-
【VBA】2つのシートの値を比較...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
空白セルをとばして転記
-
rowsとcolsの意味
-
エクセルVBAにて =A1=B1とすれ...
おすすめ情報
B10が空白になることはありません。
tatsumaru77様
情報が不足しており申し訳ございません。
①Nが存在する場合、必ず連続して2行以上存在する。⇒Nが存在する場合、Nが1つの場合もあり得ます。
②2行目にNが存在することはない。⇒その通りです。