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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- 電車・路線・地下鉄 都が運営する舎人ライナー。なぜ都営地下鉄舎人線を作らなかったのか? 11 2023/04/13 06:50
- Excel(エクセル) Excelマクロの差分抽出のコードを教えていただきたいです。 2 2023/03/14 11:40
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
セルが空だったら一つ上のセルを自動入力したいです
Excel(エクセル)
-
エクセルで上の行の値を自動的にコピーする
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
VBA 空白行に転記する
Visual Basic(VBA)
-
5
[エクセル] セルが空だったら一つ上のセルを自動入力する
Excel(エクセル)
-
6
エクセル もし、セルが空欄なら、その上のセルの値を入力する
Excel(エクセル)
-
7
VBAで空白セルにのみ数値を代入する方法
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
10
エクセルの空白セルへコピーするマクロをくむ方法
Excel(エクセル)
-
11
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
12
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
13
エクセル VBA 空白のセルに上のデータを入力する
Excel(エクセル)
-
14
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
15
エクセル マクロ 貼り付け先が空白でない場合 1行下に貼りつける
Excel(エクセル)
-
16
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
17
Excel VBA 空白をセルを探して貼り付け
Excel(エクセル)
-
18
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
19
EXCELマクロを使い、空白行ではさまれた範囲の数字を合計
Excel(エクセル)
-
20
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
エクセルで「コピーしたセルの...
-
EXCELシートをPowerPointにきれ...
-
Excelに、ダブルクォーテーショ...
-
エクセルで勝手に「折り返して...
-
Excel)軽いデーターのはずなの...
-
Excel 行の連続データを列に参...
-
Excelでコピーした行の挿入を繰...
-
メールソフト「サンダーバード...
-
エクセルで隣接していない複数...
-
EXELで複数のとびとびのセルを...
-
エクセルで、選択範囲の数値全...
-
エクセルオートフィルで書式を...
-
Excelで値をコピーするとセルの...
-
エクセル コピーしたデータを1...
-
エクセル・数値が変化したらカ...
-
フォームのテキストボックスの...
-
エクセルで値だけコピーして背...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
エクセルで勝手に「折り返して...
-
Excel 行の連続データを列に参...
-
EXCELシートをPowerPointにきれ...
-
EXCELのオートフィルの設定を変...
-
「選択範囲を解除してアクティ...
-
メールソフト「サンダーバード...
-
エクセルオートフィルで書式を...
-
Excelでコピーした行の挿入を繰...
-
Excelに、ダブルクォーテーショ...
-
エクセルでの行数・列数を指定...
-
エクセルで隣接していない複数...
-
Excel)軽いデーターのはずなの...
-
エクセルで値だけコピーして背...
-
EXELで複数のとびとびのセルを...
-
エクセル 別シートへのコピー...
-
エクセルで、選択範囲の数値全...
-
エクセル・数値が変化したらカ...
おすすめ情報