Question

How to convert QIF to Excel?

Answer 1

Answer 2

Sub Macro1()
'
' Macro1 Macro
'

Range("C1").Select
ActiveCell.Value = "Date"
Range("D1").Select
ActiveCell.Value = "Amount"
Range("E1").Select
ActiveCell.Value = "Description"

j = 0

AlastRow = Range("A" & Rows.Count).End(xlUp).Row 'get last row
For i = AlastRow To 2 Step -4
    Range("A2:A5").Copy
    'Selection.Copy
    Range("C2:F2").Offset(j, 0).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Range("A2:A5").Delete Shift:=xlUp
    'Selection.Delete Shift:=xlUp
    j = j + 1
Next

j = 0

ClastRow = Range("C" & Rows.Count).End(xlUp).Row 'get last row
For i = ClastRow To 2 Step -1

foo = Range("C2").Offset(j, 0).Value

bar = Right(foo, Len(foo) - 1)

Range("C2").Offset(j, 0).Value = bar
Range("C2").Offset(j, 0).NumberFormat = "m/d/yyyy"
    j = j + 1
Next

j = 0

DlastRow = Range("D" & Rows.Count).End(xlUp).Row 'get last row
For i = DlastRow To 2 Step -1

foo = Range("D2").Offset(j, 0).Value

bar = Right(foo, Len(foo) - 1)

Range("D2").Offset(j, 0).Value = bar
Range("D2").Offset(j, 0).Style = "Currency"
    j = j + 1
Next


j = 0

ElastRow = Range("E" & Rows.Count).End(xlUp).Row 'get last row
For i = ElastRow To 2 Step -1

foo = Range("E2").Offset(j, 0).Value

bar = Right(foo, Len(foo) - 1)

Range("E2").Offset(j, 0).Value = bar

 j = j + 1
Next



End Sub