回答: 向EXCEL VBA高手低手求助 由 马泽法克 于 2015-12-07 9:05

Sub Macro1()
 
    Workbooks.OpenText Filename:="C:input.txt", Origin:=936, StartRow:=1, _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
        :=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, _
        Other:=False, TrailingMinusNumbers:=True
        
    Range("A:A").Select
   
    Set tempRange = Selection.Find(What:="*set", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False)
    Dim targetRow As Double
    
    targetRow = tempRange.Row - 1
    
    Range("G1").Select
    Range("G1").FormulaR1C1 = "1.0"
    Selection.Copy
    Range("B4:B" & targetRow).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False
    Range("G1").FormulaR1C1 = "2"
    Range("G1").Select
    Selection.Copy
    Range("C4:C" & targetRow).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
    Range("G1").Select
    Selection.ClearContents
        
    ActiveWorkbook.SaveAs Filename:="C:output.csv", FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
     
        
End Sub