2017-03-18 10 views
0

からインポートするデータが、私はこのようなファイルの別々のExcelから値を回転させたいです9番目の値ごとに、プログラムで新しい列を開始します(図のように)。Excelは、異なるファイル

異なる「シート」が同じドキュメント(Sheet1、Sheet2など)にある場合、私は手動で(ofc B)これを行うことができます。

あまりにも多くのプログラミングをしなくても、私が試していることは可能ですか? Excelのマクロを使用すべきですか?私が得るすべての助けに感謝..!

+0

示すか、9行ごとの4つの列として、あなたは、単一の列をしたいですか? –

+0

私はこの列から得ることができる9個のセルの行をたくさん必要とします。ここでは、すべての値は互いに上下にあります。私はまた、2つの別々の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

関連する問題