No.1ベストアンサー
- 回答日時:
こんにちは。
Excelの質問をされるときは、デジタルライフ>ソフトウェア>Office系ソフトのカテゴリーの方が回答がつきやすいと思いますよ。
それでご質問の件ですが、
・A列の1行目からデータが入っているのでしょうか。
・個数を移動したら、他の列にデータが入ってない場合は空行になってしまいますが、その行は削除して間を詰めるのでしょうか。
とりあえず、1行目から図番、個数が繰り返し入っていて、移動して空行になった行は削除して間を詰めるようにマクロを書いてみました。
Sub 個数を図番の隣に移動()
Dim i As Integer
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -2
Cells(i - 1, 2).Value = Cells(i, 1).Value
Cells(i, 1).ClearContents '空行を詰めるときはこの行は削除
Rows(i).Delete '空行を詰めないときはこの行は削除
Next
End Sub
マクロ中にも書いてますが、間を詰める場合は
Cells(i, 1).ClearContents
の行を削除、詰めない場合は
Rows(i).Delete
の行を削除してください。
この回答へのお礼
お礼日時:2007/04/27 12:45
できました!!!
あせってしまっており、せっかく頂いていた回答を見落としてしまっていました・・・・大変大変助かりました!!!!!
そして、大変わかりやすい解説!!ありがとうございました!!!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) エクセルVBAで図形のテキストを取得してセルに入力 2 2022/10/05 23:09
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- Excel(エクセル) 指定値をマクロで検索&シート移動 2 2022/04/27 23:29
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Excel(エクセル) エクセルのマクロ作成について教えてください 5 2023/02/20 00:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロで最終行を取得してコピ...
-
VB.net
-
エクセルで空白行を削除する ...
-
【至急】Excel 同一人物の情報...
-
VBAで入力の結果を他のセルに反...
-
Excel VBA オートフィルタの結...
-
VBAでの重複データに色付け
-
数値に見えるものはすべて数値...
-
エクセル住所録でフラッグの個...
-
【VBA】条件に一致しない行を削...
-
Access2003レポート:最終ペー...
-
VBAで特定の行と一つ上の行を削...
-
vbaエクセルマクロについて she...
-
マクロにて指定の文字間の文字...
-
空白を複数行一気に挿入するには?
-
エクセルのデータがない行には...
-
Excelで、マウスで範囲を選択し...
-
Excel 別ブックから該当データ...
-
Excel マクロ 検索結果を別シ...
-
エクセルのVBAで指定した行数の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
数値に見えるものはすべて数値...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
列から特定の文字列検索→該当以...
-
Excel97 指定した行だけマク...
-
エクセルで階層図を作る方法
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
マクロにて指定の文字間の文字...
-
エクセルのVBAで指定した行数の...
-
Access2003レポート:最終ペー...
-
VBAで特定の行と一つ上の行を削...
-
各個体に対する平均値の自動計...
-
Excel マクロ 検索結果を別シ...
おすすめ情報