Excelにお詳しい方、どうぞよろしくお願い致します!!!

http://www.geocities.jp/yukitsun001/q.xls
において、Sheet1の数値(C列)を、Sheet2の該当箇所へ展開したいのです。
簡単に実現する方法(関数を組む、マクロを組む)をご教授下さい。

イメージはわかりやすいと思うのですが、
例えばSheet1の10行目は「新宿、池袋、5.8」となっています。
これがSheet2のCX109とDE102のセルに5.8が入ればOK!(他も同様)

要するにマトリックス表に数値を展開したいということです。

もしかしたら、Sheet1とSheet2の地名にアンマッチがあるかもしれませんが、
それはエラーでかえしてくれて構いません。(自力でなんとかします)

他力本願ですが、なかなかExcelが使いこなせなく、皆様のアドバイスを
お待ちしております!!

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2004/07/23 18:20:36
  • 終了:--

回答(2件)

id:aki73ix No.1

aki73ix回答回数5224ベストアンサー獲得回数272004/07/23 18:46:03

ポイント70pt

Private Sub CommandButton1_Click()

Sheets("Sheet1").Select

For I = 1 To 397

N1$ = Cells(I, 1).Value

N2$ = Cells(I, 2).Value

N3$ = Cells(I, 3).Value

For j = 1 To 112

M1$ = Sheets("Sheet2").Cells(j + 2, 2).Value

If N1$ = M1$ Then

For k = 1 To 112

M2$ = Sheets("Sheet2").Cells(2, k + 2).Value

If N2$ = M2$ Then

Sheets("Sheet2").Cells(k + 2, j + 2).Value = N3$

Sheets("Sheet2").Cells(k + 2, j + 2).Value = N3$

End If

Next

End If

Next

Next

End Sub

これでいいかと思います

ただSheet2の書式設定がINT型になってるので

桁調整で小数1桁に調整する必要がありました

id:miku1973

ありがとう!(いつも本当に)

やってみたのですが、横軸と縦軸における地名の順番が同じなため、

マトリックスの対角線(C3からDJ114)を境に、数値は線対称に入る

と思うのですが、そうなっていないようでした。

でも、かなりいい感じです!

もう少し回答をお待ちします!!

2004/07/23 18:54:38
id:taknt No.2

きゃづみぃ回答回数13539ベストアンサー獲得回数11982004/07/23 18:51:13

ポイント70pt

マクロです。

Sub Macro1()

’ Macro1 Macro

’ マクロ記録日 : 2004/7/23 ユーザー名 : ナナシ

’ Keyboard Shortcut: Ctrl+q

Dim a As Integer

Dim b As String

Dim c As String

Dim d As String

Dim a1 As Integer

Dim a2 As Integer

Dim k As Integer

For a = 1 To 397

b = Sheet1.Cells(a, 1)

c = Sheet1.Cells(a, 2)

d = Sheet1.Cells(a, 3)

k = 0

For a1 = 3 To 114

If Sheet2.Cells(2, a1) = b Then

For a2 = 3 To 114

If Sheet2.Cells(a2, 2) = c Then

Sheet2.Cells(a1, a2) = d

Exit For

End If

Next a2

End If

If Sheet2.Cells(2, a1) = c Then

For a2 = 3 To 114

If Sheet2.Cells(a2, 2) = b Then

Sheet2.Cells(a1, a2) = d

Exit For

End If

Next a2

End If

Next a1

Next a

End Sub

id:miku1973

すごいっ!!!

これで完璧だと思います。

お二人の方、本当にありがとう!

がんばって自力でできるように勉強します!

2004/07/23 18:56:07

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません