Question

首先关闭，所有数据最初都在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

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

抱歉，我不太了解这种语言。

Answer 1

在“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

再次，如果不了解您的设置，可能需要修改某些范围。

虽然可能需要调整以适应不同大小的数据。

也只是为了安全，有时当我导出数据时，我喜欢做一种内联复制粘贴，将公式数据转换为值数据范围（ “D2”）。值=范围（ “D2”）。值

用原始值替换单元格（公式）的内容。

通过宏移动数据

1 个答案: