Gizport
1 回答
0
Share (facebook)
52
view
全般

セル内にある指定された文字があれば、その行は残してその他の行は削除し...

セル内にある指定された文字があれば、その行は残してその他の行は削除したいというマクロをくみたいのですが
ご教授の程お願いします。 A1~A100にこのような形で文字列が並んでいます。
7010315
7160120
1095212
7172102
7063201
6140236
5980236

頭の3文字に「716」、「717」、「598」があればその行は残して、その他の行は消したい。
宜しくお願いします。
Yahoo!知恵袋 4963日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
こんな感じでしょうか

削除の前に表示しないを入れています。削除してしまうと、後で必要になったとき困るかと思って・・・
コードは削除を活かしています、表示しないは、コメントにしています・・・必要でなければ一行消してください。
アポストフィをはずせばコードとして生きます。

Sub test ( )
Dim i As Integer
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Not Range("A" & i).Value Like 716 & "*" Or _
Range("A" & i).Value Like 717 & "*" Then
’Range("A" & i).EntireRow.Hidden = True '表示しない
Range("A" & i).Delete Shift:=xlUp ’削除する
End If
Next
End Sub
Yahoo!知恵袋 4961日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
62
Views
質問者が納得Alt+↓で、その列に入力してある項目を選択できますよ。 前提は、すでに○、×、△が列Aに入力済みであることです。 王道は、入力規則を使うがいいのでしょうけど、お手軽なのはこちらですね。 入力規則を使うと、新しい項目を追加するのが少し面倒なので、 ☆Altキーとカーソルキーの下を同時押しです。
4480日前view62
全般
78
Views
質問者が納得A100とかB200は1つのセルに入力しているのでしょうか。 足し合わせることを考えると、別のセルに入力しましょう。 Sheet1に元データ 1行目 A列1月・C列2月・・・ 2行目以降 A列記号・B列数値・C列記号・D列数値・・・ Sheet2で集計 B1に1月・C1に2月・・・ A2:A6にA・B・C・D・E B2セルに次式を入れて、縦横にコピーします。 =IF(COUNTIF(OFFSET(Sheet1!$A$2,,MATCH(B$1,Sheet1!$A$1:$X$1,0)-1,4),$A2),...
4482日前view78
全般
49
Views
質問者が納得作業列を利用すれば一般機能で十分可能です。 付図参照 B1=MID(A1,2,FIND(".",A1)-2) フィルハンドルをダブルクリック この列をキーに昇順ソートします。
4485日前view49
全般
61
Views
質問者が納得式を作る過程にて, テストをしやすくするため表記をかんたんにしてます ex. タイトル, 年月->エクセル標準のシリアル値, アイテム名 etc ◇表は画像の位置に置きましたので、実用には適宜、式のセル位置を変えて下さい ID,A6: =IF(ROW(A1)>COUNT($D$1:$H$1)*COUNTA($A$2:$A$3),"",OFFSET(A$2,ROUNDUP(ROW(A1)/COUNT($D$1:$H$1),0)-1,)) と入力し、↑A6の式を C6 ま...
4485日前view61
全般
43
Views
質問者が納得セルO1に「大根」、セルO2に「4月」と指定するとして、 P1=SUMIF(A2:A100,O1,OFFSET(A1,1,MATCH(O2,A1:E1)-1,100)) 上記でいかがでしょう? 1行目の4月、5月・・・とセルO2の「4月」は全角半角の間違いを防ぐために数字だけを入力するようにして、表示形式で「○月」とするのがいいと思います。
4499日前view43

取扱説明書・マニュアル

800view
http://fujifilm.jp/.../ff_a100_mn_j101.pdf
116 ページ5.56 MB
もっと見る

関連製品のQ&A