• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセルのマクロで特定の文字があるときだけコピーできるようにしたい)

エクセルのマクロで特定の文字があるときだけコピーできるようにする方法

このQ&Aのポイント
  • エクセルのマクロを使って特定の文字がある場合にコピーする方法について説明します。
  • 具体的には、B列に「*」以外の文字がある場合にその左のセルを下のセルにコピーし、右のセルを指定したセルにコピーする処理を繰り返します。
  • この作業を「ココマデ」と書いているセルまで繰り返すことで、特定の条件の時にのみコピーが行われるマクロを作成することができます。

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

  • ベストアンサー
  • mar00
  • ベストアンサー率36% (158/430)
回答No.1

A列に連番、B列にアルファベット又は*、C列に数値が 入力されているという事でよいでしょうか。 その場合 Sub Macro1() COUNTER = -1 For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Range("B" & i) <> "*" Then COUNTER = COUNTER + 2 Cells(50, COUNTER) = Range("A" & i) Cells(51, COUNTER + 1) = Range("C" & i) End If Next End Sub で出来ると思います。

関連するQ&A