|
▼マナ さん:
>▼inoue さん:
>
>>おっしゃる通りにしましたら望みのことができました。
>>下記に成功したコードを記載させていただきます。
>
>一つの表に集約したいのではありませんか?
>期待通りの結果になっていないと思いますよ。
マナさん
確かに、最終形は一つの表にまとめたかったのですが、
手動で開いて表を一つずつ貼り付けることが
最大のハードルでしたので目的を達した感が強く思わず
解決だと思ってしまいました。
現状、一つのシートに表がいくつもある状態です。
(縦方向は等間隔ではありません。)
特定の文字(数字)が含まれていない行を削除できれば
いいかと思い、下記のようなコードを質問サイトから
拾ってきましたが、こちらで望みのことができそうでしょうか。
retu = "D"
word = InputBox(retu & "列に指定した文字が含まれていない行を削除します。" _
& vbCrLf & "検索する文字を入力してください。")
For i = Range("D" & "65536").End(xlUp).Row To 2 Step -1
If InStr(1, Range(retu & i).Value, word) = 0 Then
Rows(i).Delete
End If
Next i
本日、このコードを試せる環境になく、
また明日結果を報告させていただきます。
|
|