2017-03-18 26 views
0

導入數據我想從一個單獨的Excel旋轉值文件是這樣的:Excel中,從不同的文件

Source sheet

要垂直列表:

Desired output

我的意思是,後每第九個值,我希望程序開始一個新的列(如圖中所示)。

當不同的「工作表」位於同一文檔(Sheet1,Sheet2等)上時,我可以手動執行此操作(ofc B)。

這是甚至可能我想要的,沒有太多的進一步編程?我應該使用Excel宏嗎?我感謝所有幫助,我得到..!

+0

你想一列如圖所示,或者每個九行四列? –

+0

我想要從該列中獲得儘可能多的九個單元格的行,其中所有值都是一個在另一個下面。我也想找到一種在兩個獨立的Excel文件之間自動執行的方法。我想以一種特定的方式自動填充和Excel表與另一個Excel表(正如我所描述的,在這種情況下)。 – Lov

回答

0

將數據矩陣存儲在一個數組中,並切斷值的轉置'行'。

Dim x As Long, vVALs As Variant 

With Worksheets("Sheet1") 
    vVALs = .Range("A2:I5").Value2 

    For x = LBound(vVALs, 1) To UBound(vVALs, 1) 
     .Cells(7, 1).Offset((x - 1) * UBound(vVALs, 2)).Resize(UBound(vVALs, 2), 1) = _ 
      Application.Transpose(Application.Index(vVALs, x, 0)) 
    Next x 
End With 

enter image description here

相關問題