• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセル (1)行削除 (2)列追加と計算式入力 )

エクセルで行削除と列追加、計算式入力するマクロの作成方法とは?

このQ&Aのポイント
  • エクセルで行の削除と列の追加、計算式の入力をするためのマクロの作成方法を教えてください。
  • 具体的には、黄色のセルがある行のみを残したり、黄色がない行のみを残したりする方法について知りたいです。
  • また、指定した色以外の色のセルを残す方法や、色の変更方法についても教えていただけると嬉しいです。

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.1

こんばんは! 画像が小さくて内容が良く判らないので、こちらで勝手に判断しています。 >A列に黄色がある行のみを残す に関しては黄色以外の行を削除と考えれば良いと思います。 同様に無色の行を残すに関しては「無色以外の行を削除」とすればどうでしょうか? 尚、色の変更についてはネットで「カラーインデックス」で検索すればたくさんヒットすると思いますよ。 たぶん56色のカラーインデックスがあると思いますが、中には白・黒等が含まれていますので、実際利用可能な色はもう少し少なくなると思います。 簡単ですがコードの載せておきます。(1行目はタイトル行でデータは2行目からとします) Sub test() 'この行から '変数の宣言(長整数型) Dim i As Long 'A列の最終行から2行目まで順番に検索 For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 'もしA列のセルの色が黄色以外ならその行を削除 If Cells(i, 1).Interior.ColorIndex <> 6 Then '←薄い黄色なら36です。 Rows(i).Delete (xlUp) End If '次の行へ Next i 'もしセルの色が無色の行を残す場合は 'if Cells(i,1).Interior.ColorIndex<>xlnone Then 'Rows(i).Delete(xlup) 'End If 'で大丈夫だと思います。 '>列を追加し、計算式をデータがある行分だけ入力して計算させる 'の部分が画像が小さくてよくわからないので、単に列挿入だけのコードです。 '仮にD列を挿入するとします。 'Columns(4).Insert 'またはRange("D:D").insert 'もしD列に2列挿入する場合は 'Range("D:E").Insert 'でOKだと思います。その後の計算式はごめんなさい。 End Sub 'この行まで 列挿入後の計算式はコード内のコメントにあるように行っていません。 この程度ですがごめんなさいね。m(__)m

jyurymicke
質問者

お礼

ありがとうございました。 画像見えなくて申し訳ありませんでした。 残りは自分で頑張ってみます。 助かりました。

関連するQ&A

専門家に質問してみよう