通過宏移動數據

確定首先，所有的數據最初都在一個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

我不想在可能的情況下手動編輯數據，因爲此過程旨在實現自動化。

任何幫助會感激

UPDATE

這是我當前的代碼。

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

那麼我該如何添加刪除行命令呢。

對不起，我不知道這種語言很好。

來源

2013-08-27 Brad

顯示宏可能有幫助。或者，只需在導出完成後刪除第一行。 –

添加這一權利「Application.ScreenUpdating =假」

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」）。值

這將用原始值替換單元格（公式）的內容。

來源

2013-08-27 04:25:54 chiliNUT

就像這段代碼一樣，我無法讓它爲我工作。正如我所說，我對這種語言不太擅長。我用用於輸出csv文件的宏更新了原始文章。如果你能告訴我如何添加刪除功能，我將非常感激。 – Brad

你想在所有4張紙上這樣做，或者只是其中之一？你說你不能讓代碼工作，你可以發佈你插入我的代碼的宏的版本嗎？這將使診斷更容易。 – chiliNUT

多數民衆贊成我不知道的事情是代碼需要去。所以我一直在放置代碼並嘗試它。是的，我需要所有4張牀單。當我看着它，如果我可以從一個刪除，我可以刪除所有...是的。 – Brad

通過宏移動數據

回答

相關問題