1

私は助けが必要です。

おおよそ次の列構造を持つExcelファイルがあります。

  • 組織
  • プログラム名
  • 2012（年）
  • 2013 (年)
  • 2014（年）

この最初の構成では、各行が独自のプログラム名になっています (つまり、各プログラムに 1 つの行しかありません)。各予算年度には、特定の年度の予算データが入力される独自の列があります。

個々の年の列を単一の YEAR 列に置き換える必要があります。

  • 組織
  • プログラム名
  • 年

この設定では、プログラムの予算ごとに個別の行が存在するため、各プログラムには毎年複数の行が含まれます。

元の構造には 3,000 行あり、データ視覚化ツールにフィードするために新しい形式に切り替える必要があります。そうしないと、各列が単一のディメンション (年) として認識されません。

ありがとう

4

1 に答える 1

3

私がこれを正しく理解している場合、あなたは以下を持っています：

ここに画像の説明を入力

そしてあなたが欲しい

ここに画像の説明を入力

これは非常に大雑把ですが、開始するためにテスト済みの VBA コードです。VBA の使用経験があるかどうかはわかりません。

    Sub xxx()

    Sheets("Sheet1").Select

    Dim x As Integer
    x = 2

    For a = 2 To 3000

        Sheets("Sheet1").Select
        org = Range("A" & a).Value
        prog = Range("B" & a).Value
        y1 = Range("C" & a).Value
        y2 = Range("D" & a).Value
        y3 = Range("E" & a).Value

        Sheets("Sheet2").Select

        Range("A" & x).Value = org
        Range("B" & x).Value = prog
        Range("C" & x).Value = y1
        Range("C" & x + 1).Value = y2
        Range("C" & x + 2).Value = y3

        x = x + 3

    Next a

End Sub

さらに説明やより良いコードが必要な場合はお知らせください。

于 2012-08-19T22:26:13.383 に答える