エクセル２０００のマクロで質問です。

質問

http://oshiete1.goo.ne.jp/qa2601172.html
前回上記の質問をさせて頂いて締め切りましたが一部変更になった為
再度質問させて頂きます。

●Ｍ列に「大阪」又は「名古屋」と入った場合には同じ行のＴ列の数値をＧ列に反映。
但しこの「大阪」「名古屋」に関しては同行のＶ列にカタカナが入ってなくて空白の場合があります。
その場合は無視したいのです。Ｖ列が空白でＭ列が「大阪」「名古屋」の場合、
まったく何も反映しない状態でその行はすべて削除で構いません。

↑とありますが、そうではなくて
Ｐ列、Ｑ列の日付（Ｐに月、Ｑに日）が空白でＭ列に「大阪」又は「名古屋」と入った
場合にはその行はまったく反映させないようにしたいのです。
ちなみにＭ列に「大阪」「名古屋」とはいった場合でもＰ、Ｑの日付は空白の場合も
そうでない場合もあります。
Ｍ列に「福岡」と入った場合にはＶ列はもちろんＰ列、Ｑ列は必ず空白です。

一番目と二番目の●は変わりありません。

他、補足が必要なら申し付け下さい。

回答No.2

Wendy02 · ベストアンサー

こんにちは。Wendy02です。

遅くなってすみません。体調を壊していたこともあるのですが、前の最終のマクロと条件とは違っていましたし、条件が読み取れなくなってしまったのです。その条件文をVBAに置き換えるのに、どうしても集中力が必要になってしまいます。

今回は、やむをえないので、禁じ手のひとつの、Cellsの中で、A1スタイルの列文字を使用することにしました。（本当は、してはならないことなのですが。）

'---------------------------------------------------------------------

Sub ArrangementCr2()
'QNo.2624315, v.1.4
Dim i As Integer
Dim j As Long
Dim LastRow As Long
Const START As Integer = 4
'LastRow = Range("M65536").End(xlUp).Row　'最下行取得
'４行目からのデータのみ表示
Rows("1:" & START - 1).Hidden = True
LastRow = Cells(START - 1, "M").End(xlDown).Row
If LastRow < START + 1 Or LastRow > 65535 Then MsgBox "シートが違うか、データがありません。", vbCritical: Exit Sub

For i = 1 To 30
　Select Case i
　 Case 13, 16, 17, 20, 22
　 Case Else: Columns(i).Hidden = True
　End Select
Next i
Application.ScreenUpdating = False
For j = START To LastRow
　 Select Case Cells(j, "M").Value
　　 Case "東京", "大阪"
　　'M列に「東京」「大阪」と入った場合には同じ行のT列の数値をAE列に反映
　　　If Cells(j, "P").Value <> "" And Cells(j, "Q").Value <> "" Then
　　　　 Cells(j, "AE").Value = Cells(j, "T").Value
　　　Else
　　　　 Cells(j, "V").EntireRow.Delete
　　　　 j = j - 1
　　　End If
　　'M列に「名古屋」と入った場合には
　　Case "名古屋"
　　　 If Cells(j, "P").Value <> "" And Cells(j, "Q").Value <> "" Then
　　　　　 'Ｔ列の数値をAF列に反映。
　　　　　 Cells(j, "AF").Value = Cells(j, "T").Value
　　　 Else
　　　　　 Cells(j, "V").EntireRow.Delete
　　　　　 j = j - 1
　　　 End If
　　Case "福岡"
　　　　'「福岡」と入る場合は、AG列に反映
　　　　Cells(j, "AG").Value = Cells(j, "T").Value
　　　　'V列,P列,Q列が必ず空白の状態
　　　　Cells(j, "V").ClearContents
　　　　Cells(j, "P").ClearContents
　　　　Cells(j, "Q").ClearContents
　　End Select
Next j
Application.ScreenUpdating = True
End Sub

今回は、あまりチェックもなされていませんので、バックアップをしておいてからにしてください。

お礼

Wendy02さん
いろいろと諸事情あるにも関わらずご無理を申してすみませんでした。
心から感謝致します。

結果上手くいきました。
また無理難題を申すかもしれませんがその際は宜しくお願い致します。
お身体ご自愛下さい。

回答No.1

Wendy02

こんにちは。Wendy02です。

>●Ｍ列に「大阪」又は「名古屋」と入った場合には同じ行のＴ列の数値をＧ列に反映。

前の最終とは変わりませんか？

Case "東京", "大阪"

前回(v.1.3)は、「大阪」は、F列だったと思います。ここを変えましたか？

お礼

Wendy02さん
補足を書いてから数日が過ぎました。
多忙の事とは思いますが、お手透きの際に御教授頂ければ幸いです。

補足

Wendy02さん
説明不足をお許し下さい。
再度確認の為前回の分をコピペします。
前回の途中で御回答頂いたところの御礼で訂正したものです。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
●Ｍ列に「東京」「大阪」と入った場合には同じ行のＴ列の数値をＡＥ列に反映。但しＶ列が空白の場合もあります。
で、そのＶ列が空白の場合はその行ごと削除して全く表示も反映もさせないようにしたいです。
●Ｍ列に「名古屋」と入った場合は同じ行のＴ列の数値をＡＦ列に反映。
但しこの場合もＶ列が空白の場合もあります。その場合は上と同じようにはその行ごと削除して全く表示も反映もさせないようにしたいです。
●Ｍ列に「福岡」と入った場合には同じ行のＴ列の数値をＡＧ列に反映。但しこの「福岡」と入る場合はＶ列が必ず空白の状態です。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

で、今回訂正として下記のようにしたいのです。

●Ｍ列に「東京」「大阪」と入った場合。
同じ行のＴ列の数値をＡＥ列に反映。Ｖ列が空白の場合もありますがそこは特に関係ありません。
但しＰ列、Ｑ列の日付が空白の場合はその行をすべて削除します。
●Ｍ列に「名古屋」と入った場合。
同じ行のＴ列の数値をＡＦ列に反映。
但しこの場合もＶ列が空白の場合もありますがその場合も上と同様特に関係ありません。
但しＰ列、Ｑ列の日付が空白の場合はその行をすべて削除します。
●Ｍ列に「福岡」と入った場合。
Ｍ列に「福岡」と入った場合はＴ列の数値をＡＧ列に反映するだけです。
但しこの「福岡」と入る場合はＶ列が必ず空白の状態でさらにＰ列、Ｑ列の日付も
必ず空白です。

以上ですがまだ説明不足かもしれません。
不明な点あれば申し付け下さい。