No.4ベストアンサー
- 回答日時:
>りんごを含んでいる行のみ削除
これは特定の列に削除文字列があれば削除するのですか? それとも列を限定せず1行のどこかに文字列があれば削除するのですか?
以下のサンプルはマクロ2行目で指定した列に指示した文字列がある行を削除していますが、マクロ中コメントアウトしている9行目を8行目のIf文と入れ替えると、1行のどこかに指定文字列があれば削除します。
Sub Macro1()
Const col As String = "A" '文字列が入力されている列
Dim idx As Long
Dim keyWord
keyWord = Application.InputBox("削除対象の文字列は?", Type:=2)
If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then
For idx = Cells(65536, col).End(xlUp).Row To 1 Step -1
If InStr(Cells(idx, col).Value, keyWord) > 0 Then
' If Application.CountIf(Rows(idx), "*" & keyWord & "*") > 0 Then
Rows(idx).Delete
End If
Next idx
End If
End Sub
この回答へのお礼
お礼日時:2008/01/23 14:48
お答えありがとうございます。
とても分かりやすいサンプルで勉強になりました。
検索文字は列は限定せずに、どこかの列にあれば・・でした。
No.3
- 回答日時:
あら、もう随分回答が出ていますが・・・。
以下は、A列に限らず、シート内に指定の文字列を含む行があったら削除します。
Sub test01()
Dim x As String, c As Range
x = InputBox("削除する文字を入力")
With ActiveSheet.UsedRange
Do While (1)
Set c = .Find(What:=x, LookIn:=xlValues, LookAt:=xlPart)
If c Is Nothing Then Exit Do
c.EntireRow.Delete
Loop
End With
End Sub
No.2
- 回答日時:
”りんご”がA列で数値がB列とした場合で、データ範囲がA列とB列
である事が条件です。
(データは1行目からとしてます)
Sub try()
Dim st As String
Dim i As Long, j As Long
Dim v, x
st = InputBox("削除するのは何?")
If st = "" Then Exit Sub
With ActiveSheet
v = .Range(.[A1], .Cells(Rows.Count, 1).End(xlUp).Resize(, 2))
ReDim x(1 To 2, 1 To UBound(v, 1))
For i = 1 To UBound(v, 1)
If v(i, 1) <> st Then
j = j + 1
x(1, j) = v(i, 1): x(2, j) = v(i, 2)
End If
Next
ReDim Preserve x(1 To 2, 1 To j)
.Range("A:B").ClearContents
.Range("A1").Resize(j, 2).Value = Application.Transpose(x)
Erase v, x
End With
End Sub
ご参考程度になれば。
No.1
- 回答日時:
2つぐらいやり方はあると思う。
しかし、>いろいろ調べましたがわかりませんといっているようでは、下記(2)では相当難しいよ。
(1)最下行まで、各行を総なめし、「りんご」かチェックする方法
(2)Find法
(1)は最下行から聞いて行って、該当行を、行削除していくこと
For i=1d To 1 Step -1
If Cells(i,"A")="りんご" Then
ActiveSheet.Cells(i,"A").Select
Selection.EntireRow.Delete
End If
Next i
--
「りんご」を指定する方法に、inputboxを使うなど指定・注文をつけているが、瑣末なことです。
ーー
>含んでいる
とあるが、「等しい」のか「含んでいる」のかはっきりしないが、「含んでいる」で良いのかな。(1)の場合、等しいは=で、含んでいるはp=Instr((cells(i,"A"),"りんご")でp<>0の判断になる。
(2)ではLookAt:=xlPartかLookAt:=xlWholeかになる
--
(2)はマクロの記録モードで
検索
りんご
の操作をすると、下記に近いコードが出る。
それを下記のように変える。
Sub Macro2()
Range("a1").Activate
Range("a1:a100").Find(What:="りんご", LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
F = ActiveCell.Row
s = s & "A" & F
MsgBox ActiveCell & F
'--
Do
Range("a1:a100").FindNext(After:=ActiveCell).Activate
If ActiveCell.Row <> F Then
MsgBox ActiveCell & ActiveCell.Row
s = s & ",A" & ActiveCell.Row
End If
Loop While ActiveCell.Row <> F
'---
MsgBox "終わり"
MsgBox s
ActiveSheet.Range(s).Select
Selection.EntireRow.Delete
End Sub
「りんご」となっているところへ、A=InputBox("条件")のAで置き換えること。
例データ A1:A7
りんごパイ
みかん
りんご
なし
ぶどう
みかん
りんご
結果 A1から
みかん
なし
ぶどう
みかん
もっとテストが必要かもしれないが、とりあえず。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
7文字以上のフルーツをできるだ...
-
切ったら梨の真ん中が茶色黒く...
-
切った梨の表面に、茶色い斑点...
-
煮物こんにゃくの冷凍保存について
-
梨の皮が黒く変色していました。
-
スーパーで買った1つ300円の梨...
-
ラズベリーの種の抜き方を教え...
-
梨の豊水について。 頂き物の豊...
-
「であり」と「であって」の使...
-
Excel MATCH関数で検索範囲内...
-
フランス語で「梨」を何と呼ぶ...
-
今白いちじくを食べようとして2...
-
スポンジケーキってどのくらい...
-
【果物・梨】20世紀梨と廿世紀...
-
中黒「・」か読点「、」か?
-
今の若い人達は、松茸はたいし...
-
ハーブソルトを代用できるもの...
-
フランス語
-
梨が臭い!!!
-
貰った梨が傷んでいました。販...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
切ったら梨の真ん中が茶色黒く...
-
切った梨の表面に、茶色い斑点...
-
7文字以上のフルーツをできるだ...
-
スーパーで買った1つ300円の梨...
-
梨の豊水について。 頂き物の豊...
-
梨の皮が黒く変色していました。
-
【果物・梨】20世紀梨と廿世紀...
-
煮物こんにゃくの冷凍保存について
-
今白いちじくを食べようとして2...
-
教えてください!!
-
貰った梨が傷んでいました。販...
-
すいかは発酵しても食べられるか。
-
プルーンの種
-
中黒「・」か読点「、」か?
-
9月でも苺を買う方法
-
国産ブルーベリーのほうがいい?
-
フランス語で「梨」を何と呼ぶ...
-
梨を今日むいておいて明日たべ...
-
Excel MATCH関数で検索範囲内...
-
スポンジケーキってどのくらい...
おすすめ情報