0

好的，首先，所有数据最初都在一个 xlsm 文件中。宏运行（通过计划任务）并将选项卡制作成 csv 文件。完美工作。

其次，我有一个网站可以读取数据并将其显示在图表中。我用来完成这项工作的 javascript 从列中读取数据。完美运行。

现在解决问题...通过宏导出的 csv 文件无法正确读取。这是由于第一行和最后一行数据。第一行我不需要，但是我可以使用最后一行。

所以我想在这里问... 1. 我如何删除第一行 2. 有没有办法可以将行移到下一列。

这就是它现在的样子。

Auto+Hide   Fit     Fit       Fit
           No.      Name    Comm MTD
          E00043    Julie      2
          E00143    Jodie      1
          E00198    Jason      0
          E00289    Ronald     0
          E00345    Patimah    2
          E00356    Jenny      1
          TARGET               6

我希望它看起来像这样。

    No.     Name   Comm MTD  TARGET
    E001    Julie      2        6
    E002    Jodie      1
    E003    Jason      0
    E004    Ronald     0
    E005    Patimah    2
    E006    Jenny      1

如果可能的话，我不想手动编辑数据，因为这个过程是自动化的。

任何帮助将不胜感激

更新

这是我当前的代码。

Sub Macro3()
'
' Macro3 Macro
'
'
    Application.DisplayAlerts = False
    Sheets("page 1").Select
    ActiveWorkbook.SaveAs Filename:= _
        "\\weburl.com.au\data\page 1.csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    Sheets("page 2").Select
    ActiveWorkbook.SaveAs Filename:= _
        "\\weburl.com.au\data\page 2.csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    Sheets("page 3").Select
    ActiveWorkbook.SaveAs Filename:= _
        "\\weburl.com.au\data\page 3.csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    Sheets("page 4").Select
    ActiveWorkbook.SaveAs Filename:= _
        "\\weburl.com.au\data\page 4.csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
   'ActiveWorkbook.Saved = False
   'Application.Quit
End Sub

那么如何在其中添加删除行命令。

对不起，我不太懂这种语言。

4

1 回答 1

0

在“Application.ScreenUpdating=false”之后添加这个

For pageNumber = 1 To 4
    Sheets("page " & pageNumber).Rows(1).Delete
    Sheets("page " & pageNumber).Columns(1).Delete
    Sheets("page " & pageNumber).Range("D1").Value = "TARGET"
    Sheets("page " & pageNumber).Range("D2").Formula = "=SUM(C2:C6)"
    Sheets("page " & pageNumber).Range("D2").Calculate
    Sheets("page " & pageNumber).Range("D2").Value = Sheets("page " & pageNumber).Range("D2").Value
Next pageNumber

再次，在不了解您的设置的情况下，可能必须修改某些范围。

尽管这可能必须进行调整以适应可变大小的数据。

为了安全起见，有时当我导出数据时，我喜欢做一种内联复制粘贴来将公式数据转换为值数据 Range("D2").Value=Range("D2").Value

这会将单元格的内容（公式）替换为原始值。

于 2013-08-27T04:25:54.457 回答