No.1ベストアンサー
- 回答日時:
A列に値がない場合は数式を入れないのなら、こちら↓とか。
Sub Test()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If ActiveSheet.Cells(i, 1).Value <> "" Then
Cells(i, 2).FormulaR1C1 = "=TEXT(RC[-1],""0000000"")"
End If
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) 関数を用いて表示したセルの内容を、見えている形でコピーする方法 2 2022/09/14 16:36
- Excel(エクセル) xlDownの使い分けについての質問です vbaでxlDownを使って一覧近い空白までのセルをコピー 3 2022/08/04 12:20
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) 【Excel関数】値が合致するセルの隣のセルを表示させたい 8 2022/10/12 17:44
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
アクティブセルとそのセルに隣接する右隣の2つのセルをコピーしてシート2に貼り付ける
Excel(エクセル)
-
エクセルVBAで、値が入っている最終行の、右隣の値をコピーして、別のセルに貼り付けるコード
Excel(エクセル)
-
-
4
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
5
VBA 空白行に転記する
Visual Basic(VBA)
-
6
エクセルの空白セルへコピーするマクロをくむ方法
Excel(エクセル)
-
7
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
8
VBA コピーして次の値まで貼り付けを繰り返す
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel VBA】指定行以降をクリ...
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
特定のセルが空白だったら、そ...
-
連続する複数のセル値がすべて0...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelで指定した日付から過去の...
-
エクセルVBAでコピーして順...
-
DataGridViewの各セル幅を自由...
-
セル色なしの行一括削除
-
【Excel VBA】セルの色によって...
-
指定した条件で行セルを非表示...
-
vba 隣のセルに値がある行だけ...
-
screenupdatingが機能しなくて...
-
Excel VBAで、 ヘッダーへのセ...
-
vb.netによるEXCEL値取得
-
特定行の色を変えたい(FlexGrid)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
【Excel】指定したセルの名前で...
-
エクセルVBAでコピーして順...
-
Excelのプルダウンで2列分の情...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
【VBA】指定したセルと同じ値で...
-
Excel vbaで特定の文字以外が入...
-
VBAでセルをクリックする回...
-
連続する複数のセル値がすべて0...
-
特定の文字を条件に行挿入とそ...
-
DataGridViewの各セル幅を自由...
-
指定した条件で行セルを非表示...
-
VBA コピーして次の値まで貼り...
おすすめ情報