エクセルでこんな事できますか？？

質問

エクセルでこんな事できますか？？
sheet１（B12～B44）に文字が入力さた時に（空白セルは、無視して）自動的にsheet２の指定部分（A5～A15）に空白セルは無視して順番に入力された所のみ反映されるようにするには、どうしたらできますか？
＞例）sheet1（B12＝あ・B13＝い・B14＝う）をsheet2（Ａ5＝あ・A6＝い・・・）では、なく。
Sheet１の指定されたセル（B12～B44）の中で文字が入力された場合のみｓｈｅｅｔ２の指定されているセル（A5～A15）へ反映されるという意味です。例えばsheet１の B12→あ、B22→う、B30→お、と入力されたら、sheet２の A5～A7 に あ、う、お と空白セルは除かれ入力される設定にしたいのです。

どうですか？可能でしょうか？

回答No.2

Wendy02 · ベストアンサー

関数：
Sheet2, A5 から下へ
=IF(ROW(A1)>COUNTA(Sheet1!$B$1:$B$50),"",INDEX(Sheet1!$B$1:$B$50,SMALL(INDEX((Sheet1!$B$1:$B$50<>"")*ROW($A$1:$A$50),,),ROW(A1)+ROWS((Sheet1!$B$1:$B$50))-COUNTA(Sheet1!$B$1:$B$50)),1))

VBA：
VBAは、人が書いたものは評価できても、今回のような関数と同じように再現するのは少し難しく感じます。ミスしやすい部分がいくつもあります。

*With Me.Next　というのは、Sheet2ということではなく、右側にシートに写すようになっています。
明示的に入れるなら、With Worksheets("Sheet2") とします。

シートタブを右クリック-->コードの表示
'-------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim rng As Range
　　Dim ar As Variant
　　Dim c As Variant
　　Dim buf As Variant
　　If Intersect(Target, Range("B12:B44")) Is Nothing Then Exit Sub
　　Set rng = Range("B12", Cells(Rows.Count, 2).End(xlUp))
　　For Each c In rng
　　　　If c.Value <> "" Then
　　　　　　buf = buf & ", " & c.Value
　　　　End If
　　Next
　　With Me.Next
　　　　 .Range("A5:A15").ClearContents '不要分を消す
　　　　 ar = Split(Mid(buf, 2), ",")
　　　　 If UBound(ar) > 10 Then
　　　　　 .Range("A5").Resize(11).Value = Application.Transpose(ar)
　　　　 Else
　　　　　　.Range("A5").Resize(UBound(ar) + 1).Value = Application.Transpose(ar)
　　　　 End If
　　End With
　　Set rng = Nothing
End Sub

なお、「セル（A5～A15）」のA15という上限は、関数には設定されていませんので、数式は、Sheet2のA15まで入れてください。VBAは、上限が設定されています。

お礼

親切なご説明ありがとうございます。
感謝いたします。助かりました。

回答No.3

web2525

直前に同じ質問をされて回答が出ているようですが

提示された関数式でうまくいきませんでしたか?

補足

直前に似たような質問を致しましたが、若干セルなどが異なっておりうまくいきませんでしたので
再度質問させていただいた次第でございます。

回答No.1

Cupper

少なくとも関数では無理です。

プログラムを読むことはできますか？
できるならマクロ（VBA）で対応が可能です。

お礼

アドバイスありがとうございました。