No.4ベストアンサー
- 回答日時:
Dim i As Integer
Dim S As String
S = ""
For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = S
Else
S = Cells(i, 1).Value
End If
Next i
nag0720様、ご回答ありがとうございます。
変数Sの使い方が大変勉強になりました。
記述いただきました内容でやりたいことが無事できました。
No.6
- 回答日時:
Dim rr As Range
Dim rb As Range
Dim i As Long
Set rr = Range("A1", "A" & Cells(Rows.Count, 2).End(xlUp).Row)
Set rb = rr.SpecialCells(xlCellTypeBlanks)
For i = 1 To rb.Areas.Count
With rb.Areas(i)
.Value = .Item(1).Offset(-1).Value
End With
Next i
スペースとか、長さ0の文字列、が入っている見かけが空白セルの場合は別途対策が必要です。
No.5
- 回答日時:
以下の手順で行ってください。
(1)まずは以下のコードをモジュールに貼り付けてください。
Sub コピー()
Dim i As Integer, s As Worksheet, s1 As Worksheet, x As String
Set s = Sheets("Sheet1") '(1)「Sheet1」の6文字をコピー元のシート名に変更
Set s1 = Sheets("Sheet2") '(2)「Sheet2」の6文字をコピー先のシート名に変更
For i = 1 To s.Range("B" & Rows.Count).End(xlUp).Row
If Not s.Cells(i, 1).Value = "" Then x = s.Cells(i, 1).Value
s.Range("A" & i & ":" & "C" & i).Copy s1.Range("A1").Offset(i - 1)'(3)
s1.Range("A1").Offset(i - 1) = x
Next i
End Sub
(2)そしてコードの緑色の部分(1)(2)を指示通りに変更してください。
(3)マクロを実行してください。(どのシートを開いてマクロを実行してもOKです。)
きちんと動きましたか?
A列からC列を処理するようにしています。もし行一列すべてをコピーしたいなら(3)の
s.Range("A" & i & ":" & "C" & i).Copy s1.Range("A1").Offset(i - 1)'(3)
を消して
s.Rows(i).Copy s1.Range("A1").Offset(i - 1)
に変更してください。
No.3
- 回答日時:
A列において、A2からデータがある行まで選択します。
Ctrl+Gで「ジャンプ」画面を開きます。
ジャンプ画面の「セル選択」で「選択オプション」を開きます。
空白セルを選択してOKを押します。(A列の複数の空白セルのみが選択されます)
「名前ボックス」が「A2」となっていることを確認したら、数式バーに「=A1」と入力し、Ctrl+Enterします。
以上です。
この回答への補足
cistronezk様、ご回答ありがとうございます。
毎回、元の形式で新しいデータが届くため、ワンボタンで
処理できるようにしたいと考えております。
説明不足で申し訳ございません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
CDの保有枚数を教えてください
ひとむかし前はCDを買ったり借りたりが主流でしたが、サブスクで簡単に音楽が聴ける今、CDを手に取ることも減ってきたかと思います。皆さんは2024年現在、何枚くらいCDをお持ちですか?
-
【お題】絵本のタイトル
【お題】 「ないた あかおに」「ねないこ だれだ」「はらぺこあおむし」みたいだけど、一体これどういう内容?と思った絵本のタイトルを教えて下さい
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
エクセルで上の行の値を自動的にコピーする
Excel(エクセル)
-
セルが空だったら一つ上のセルを自動入力したいです
Excel(エクセル)
-
VBA 空白行に転記する
Visual Basic(VBA)
-
-
4
エクセルの空白セルへコピーするマクロをくむ方法
Excel(エクセル)
-
5
エクセル もし、セルが空欄なら、その上のセルの値を入力する
Excel(エクセル)
-
6
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
7
VBAで空白セルにのみ数値を代入する方法
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
10
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
11
Excel VBA 空白をセルを探して貼り付け
Excel(エクセル)
-
12
エクセルで空白のセルを探して貼り付け
Excel(エクセル)
-
13
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
14
[エクセル] セルが空だったら一つ上のセルを自動入力する
Excel(エクセル)
-
15
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
16
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
17
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
18
エクセル マクロ 貼り付け先が空白でない場合 1行下に貼りつける
Excel(エクセル)
-
19
VBAで重複する項目を1つにまとめて金額を合計したい
Excel(エクセル)
-
20
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのアポストロフィを一...
-
エクセルで隣接していない複数...
-
エクセル:マクロ「Application...
-
エクセルで勝手に「折り返して...
-
メールソフト「サンダーバード...
-
エクセルで値だけコピーして背...
-
Excelでコピーした行の挿入を繰...
-
Excelに、ダブルクォーテーショ...
-
エクセルのコピペでクリップボ...
-
Excel 行の連続データを列に参...
-
エクセル 別シートへのコピー...
-
「選択範囲を解除してアクティ...
-
エクセルオートフィルで書式を...
-
エクセルの2ページ目の作り方
-
EXCELのオートフィルの設定を変...
-
エクセルで、選択範囲の数値全...
-
EXELで複数のとびとびのセルを...
-
結合したセルを1つのセルにコピ...
-
エクセルVBA/イベント発生でコ...
-
エクセルでの行数・列数を指定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルで隣接していない複数...
-
エクセルで勝手に「折り返して...
-
Excelに、ダブルクォーテーショ...
-
メールソフト「サンダーバード...
-
Excelでコピーした行の挿入を繰...
-
Excel 行の連続データを列に参...
-
EXELで複数のとびとびのセルを...
-
エクセルの2ページ目の作り方
-
エクセルで、選択範囲の数値全...
-
エクセル 別シートへのコピー...
-
「選択範囲を解除してアクティ...
-
エクセルで値だけコピーして背...
-
エクセル コピーしたデータを1...
-
EXCELのオートフィルの設定を変...
-
エクセルオートフィルで書式を...
-
エクセルでの行数・列数を指定...
-
エクセルのコピペでクリップボ...
-
エクセルで「コピーしたセルの...
おすすめ情報