VBA検索列D "PM"の場合、列Bに12時間を追加します。

Question

残念ながら特定の質問があり、Googleとの共同作業でVBAコードを使用することができます。

30分の間隔を示す列を持つテキストファイルからレポートをインポートしています（スクリーンショットを参照）。何らかの理由で、午後12時以降はいつでも列BにAMとして表示されますが列Dには表示されません。PMとして列Dを検索し、列Bに12時間を追加してPMとして終了するコードを作成しようとしています。私の試みは機能していないし、範囲のためだと信じている。

Screenshot of Data

Sub AM2PM()  
Dim rngC As Range 
Dim rngT As Range 
Set rngT = Range("B2", Cells(Rows.Count, "B").End(xlUp)) 

rngT.NumberFormat = "mm/dd/yyyy hh:mm:ss AM/PM" 

For Each rngC In rngT 
    If InStr(1, (Range("D")), "PM") > 0 Then 
     rngC.Value = DateValue(rngC.Value) + TimeValue(rngC.Value) + 0.5 
    Else 
     rngC.Value = DateValue(rngC.Value) + TimeValue(rngC.Value) 
    End If 
Next rngC 

End Sub 

すべてのヘルプは大歓迎です！

Answer 1

あなたはループせずにしようとする場合があります：

Sub Minus30M() 
    With Columns("D:D") 
     .Replace What:="A", Replacement:=" A", LookAt:=xlPart 
     .Replace What:="P", Replacement:=" P", LookAt:=xlPart 
    End With 
    Range("D1").FormulaR1C1 = "=1/48" 
    Columns("D:D").Copy 
    Range("B1").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    Range("D1").Copy 
    Columns("B:B").PasteSpecial Paste:=xlPasteAll, Operation:=xlSubtract 
    Application.CutCopyMode = False 
    Selection.NumberFormat = "h:mm AM/PM" 
End Sub