解決済み

マクロで複数の行をまとめて切り取りする方法

  • 困ってます
  • 質問No.9536816
  • 閲覧数77
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 54% (159/293)

Iの列のセルに「テスト」があったら、その行を切り取ってシート2に貼り付ける
といった流れのコードが下記です。

Sub 切り取り()
Dim i, LastRow As Long
LastRow = Cells(Rows.Count, 9).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, 9) = “テスト” Then
Rows(i).Cut Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next i
End Sub

●Iの列のセルに「テスト」と「課題」があったら、その行を切り取ってシート2に貼り付ける
といったものをしたいのです。
1.
If Cells(i, 9) = “テスト” Then

If Cells(i, 9) = “テスト,課題” Then
結果エラー

2.
If Cells(i, 9) = “テスト” Then

If Cells(i, 9) = “テスト&課題” Then
結果エラー

正常なコードを教えてくださいますか?
宜しくお願いします。

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

  • 回答No.1

ベストアンサー率 37% (7795/20819)

他カテゴリのカテゴリマスター
そらあたりまえです。if文の書式が誤ってますもん。

If Cells(i, 9) = “テスト&課題” Then

とかではなく

If Cells(i, 9) = “テスト" or Cells(i, 9) = “課題” Then

ですよね。

if文の直後は「論理式」が来ないとダメなので、Cells(i, 9) = “テスト&課題”
だと、"テスト&課題”という文字列しか見つけに行きませんよ。
お礼コメント
nkmyr

お礼率 54% (159/293)

ありがとうございます。
動作できました。
orでしたか…
投稿日時 - 2018-09-13 10:32:51
感謝経済
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


感謝指数をマイページで確認!

ピックアップ

ページ先頭へ