• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• ootatmt2010/08/05 16:34:24

  満足30pt

  Option Explicit
  
  Sub hatena()
  
  Dim i As Long
  Dim r As Long
  Dim c As Long
  Dim y As Long
  Dim wsOUT As Worksheet
  Dim wsDATA As Worksheet
  
  Set wsDATA = Worksheets("Sheet1")
  Set wsOUT = Worksheets("Sheet2")
  
  y = 1
  For r = 1 To wsDATA.Cells(Rows.Count, 1).End(xlUp).Row
      c = 2
      Do While wsDATA.Cells(r, c) <> ""
          wsOUT.Cells(y, 1) = wsDATA.Cells(r, 1)
          wsOUT.Cells(y, 2) = wsDATA.Cells(r, c)
          c = c + 1
          y = y + 1
      Loop
  Next
  
  End Sub
  

  こんな感じでどうでしょう。

  ①のデータ(Sheet1)を②のようにSheet2に書き出します。

  http://dummy/

  スター

  • hiromiti 2010/08/05 19:15:45

    早速、ご回答いただきありがとうございます。目的のセル配列変更ができることを確認しました。

    サンプルデータとして、不変の列データ（アルファベット1文字の箇所）は1列のみとしておりましたが、例えばこれが5列の場合は、どの値をどのように変更すれば、よいでしょうか？

その他の回答

• ootatmt2010/08/05 23:04:21

  満足25pt

  > サンプルデータとして、不変の列データ（アルファベット1文字の箇所）は1列のみとしておりましたが、例えばこれが5列の場合は、どの値をどのように変更すれば、よいでしょうか？

  
  

  次のように変更してもらえばいいと思います。

  コメントを記入してある箇所を変更すれば不変の列の数が変わっても対応できます。

  Option Explicit
  
  Sub hatena()
  
  Dim i As Long
  Dim r As Long
  Dim c As Long
  Dim y As Long
  Dim wsOUT As Worksheet
  Dim wsDATA As Worksheet
  
  Set wsDATA = Worksheets("Sheet1")
  Set wsOUT = Worksheets("Sheet2")
  
  y = 1
  For r = 1 To wsDATA.Cells(Rows.Count, 1).End(xlUp).Row
      ' 固定列数 + 1
      c = 6
      Do While wsDATA.Cells(r, c) <> ""
          ' 固定列数
          For i = 1 To 5
              wsOUT.Cells(y, i) = wsDATA.Cells(r, i)
          Next
          wsOUT.Cells(y, 6) = wsDATA.Cells(r, c)
          c = c + 1
          y = y + 1
      Loop
  Next
  
  End Sub
  

  http://dummy/

  スター

  • hiromiti 2010/08/06 08:49:03

    列数を変動させても目的の結果を得られることが分かりました。

    本当にありがとうございました。

きゃづみぃ2010/08/05 21:17:36

満足25pt

Option Explicit

Sub hatena()

Dim i As Long
Dim r As Long
Dim c As Long
Dim y As Long
Dim wsOUT As Worksheet
Dim wsDATA As Worksheet

Set wsDATA = Worksheets("Sheet1")
Set wsOUT = Worksheets("Sheet2")

y = 1
For r = 1 To wsDATA.Cells(Rows.Count, 1).End(xlUp).Row
    c = 6
    Do While wsDATA.Cells(r, c) <> ""
        wsOUT.Cells(y, 1) = wsDATA.Cells(r, 1)
        wsOUT.Cells(y, 2) = wsDATA.Cells(r, 2)
        wsOUT.Cells(y, 3) = wsDATA.Cells(r, 3)
        wsOUT.Cells(y, 4) = wsDATA.Cells(r, 4)
        wsOUT.Cells(y, 5) = wsDATA.Cells(r, 5)
        wsOUT.Cells(y, 6) = wsDATA.Cells(r, c)
        c = c + 1
        y = y + 1
    Loop
Next

End Sub

まず

c = 2

は 固定行数＋１なので ここでは ６をセットします。

次に 固定行数の反映箇所

と

変動行数の反映箇所を変更します。

wsOUT.Cells(y, 1) = wsDATA.Cells(r, 1)

wsOUT.Cells(y, 2) = wsDATA.Cells(r, c)




の

wsOUT.Cells(y, 1) = wsDATA.Cells(r, 1)

は 固定の分だけ

５行なら ５行にします。

wsOUT.Cells(y, 2) = wsDATA.Cells(r, c)

のy, 2は、固定＋１なので y,6に変えます。

それが 上記のソースになります。

http://q.hatena.ne.jp/1280991348

スター

• hiromiti 2010/08/06 08:50:10

  詳細な解説付きでご回答ありがとうございます。

• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2010-08-05 15:55:50

終了日時

2010-08-06 08:51:26

回答条件

回答にURL必須 1人2回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者111日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者111日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者14時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者114時間前
• 内定してほしいポケモンはいますか？匿名質問者14時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ