Question

我对每行的单元格合并提出了一个问题。我收到了一个很好的答案： First Question

现在，我在第一个问题中使用了代码，此外我还使用了此问题中的代码：Second Question

我的目标是将合并单元格的结果保存到新的csv文件中。

结合两者的代码我有：

    Sub sisk()
    Dim sisk As String
    Dim row As Long
    Dim col As Long
    Dim Rng As Range
    Dim WorkRng As Range
    Dim xFile As Variant
    Dim xFileString As String

    For row = 2 To 96
        sisk = vbNullString
        For col = 1 To 4
            If VBA.Len(sisk) Then sisk = sisk & ","
            sisk = sisk & Cells(row, col)
        Next col

        Worksheets("Sheet1").Cells(row, 7) = sisk

    Next row

    xTitleId = "Please select range to be exported"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    Application.ActiveSheet.Copy
    Application.ActiveSheet.Cells.Clear
    WorkRng.Copy Application.ActiveSheet.Range("A1")
    Set xFile = CreateObject("Scripting.FileSystemObject")
    ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\Range.csv", FileFormat:=xlCSV, CreateBackup:=False 
End Sub

我没有做这一切，而是如何调整代码呢？我只需要将合并单元格的结果导出到新的.csv文件。而不是这样做：

  Worksheets("Sheet1").Cells(row, 6) = sisk

我希望结果（sisk）自动保存在新的CSV文件中。

Answer 1

这是怎么回事：

Range.csv

我不确定他们是否会粘贴到你想要的地方，但是让我知道要调整什么，我可以！

请务必更改.SaveAs以匹配您的路径。这也将创建（或使用，如果存在）var reportFilterButtons = $('input[name=reportfilter]', '#reportChartForm');文件，因此我注释掉了最后的reportFilterButtons.change(handlers.reportFilterButtonsChange);行。

将合并单元格的结果保存到新的csv文件

1 个答案: