No.2ベストアンサー
- 回答日時:
一応、こちらについても回答させていただきます。
何度かこの似た質問が出ていたようですが、これについては、プロセスそのものは回答者にお任せになってください。
しかし、どうも正確なロジックが読みきれません。
"J" "JB" "JD" "W"
ワイルドカード式ではなくて、
AB列
JB でなおかつJBNではない、JD または、W
AD列は、
JB か JD または、W
ということではありませんか?そもそも、Jで始まる条件というものはなさそうです。
この意味が分かるでしょうか?
=SUMPRODUCT((LEFT(AB2,2)={"JB";"JD"})*(LEFT(AB2,3)<>"JBN")+(LEFT(AB2,1)="W"))
+SUMPRODUCT((LEFT(AD2,2)={"JB";"JD"})+(LEFT(AD2,1)="W"))
AB列は、JB, JD であるが、JBNではない。または、W
AD列は、JB, JD または、W
というクライテリアで出来ています。
数式さえ分かれば、ご自分でも、調整できるはずです。
また、補充治具費の部分は、シートがすでにある場合は、新しいシートに変わります。
'//標準モジュール
Sub PicupDATA()
Dim AcSh As Worksheet
Dim NewSh As Worksheet
Dim Rng As Range
Dim CriteArea As Range
Const FML As String = "=SUMPRODUCT((LEFT(AB2,2)={""JB"";""JD""})*(LEFT(AB2,3)<>""JBN"")+(LEFT(AB2,1)=""W""))+SUMPRODUCT((LEFT(AD2,2)={""JB"";""JD""})+(LEFT(AD2,1)=""W""))>0"
Set AcSh = ActiveSheet
Set NewSh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
On Error Resume Next
NewSh.Name = "補充治具費"
On Error GoTo 0
With AcSh
If .FilterMode Then
.ShowAllData
End If
Set Rng = .Range("A1").CurrentRegion
Set CriteArea = .Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Resize(2)
CriteArea.Cells(2, 1).FormulaLocal = FML
Rng.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=CriteArea, _
CopytoRange:=NewSh.Range("A1"), _
Unique:=False
End With
NewSh.Activate
End Sub
No.1
- 回答日時:
> "J" "JB" "JD" "W" で始まっていなければ
という事ですが、"J" と "W" で始まっているものはすべて残す、という意味でしょうか?
> JBとJBNで始まるものがあり,必要なのはJBだけ
"JB" で始まっているものを残せば、"JBN" も必ず残りますが…?
その辺りについて、もう少し詳しく教えて頂きたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルで横並びの複数データ...
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
エクセルの保護で、列の表示や...
-
Excelでの並べ替えを全シートま...
-
エクセルの列の限界は255列以上...
-
excel・VBAで奇数・偶数の分岐...
-
Excelに自動で行の増減をしたい...
-
エクセル 月のデータを週ごとに...
-
EXCELでシート1で作ったデータ...
-
Excelにて、ファイル内の複数シ...
-
エクセル複数シートのデータを...
-
【VBA】ピボットテーブルを既存...
-
SUMPRODUCTにて別シートのデー...
-
EXCEL VBAのコンボボックスに取...
-
エクセルVBA エクセル複数シー...
-
【エクセル】1列のデータを交...
-
エクセル マクロ 標準モジュー...
-
オートフィルタ使用時にCOUNTIF...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
VBAで繰り返しコピーしながら下...
-
【条件付き書式】countifsで複...
-
エクセル マクロ 標準モジュー...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
エクセルで、チェックボックス...
-
エクセルマクロを教えてほしい...
-
SUMPRODUCTにて別シートのデー...
-
Excel VBA ピボットテーブルに...
-
エクセルのブック分割マクロを...
-
【VBA】複数のシートの指定した...
-
excel 複数のシートの同じ場所...
-
Excelに自動で行の増減をしたい...
-
スプレッドシートでindexとIMPO...
-
エクセルで横並びの複数データ...
-
エクセル複数シートのデータを...
おすすめ情報