Excel Q&Aサロン(一般操作)

□ 戻る　 □VBAのサロン　 □ 使用方法　 □ 新着記事　□ 新規に質問する！　 □ トピック一覧　 □ 検索　□ 過去ログ

[ 親トピックをトピックトップへ ]

このトピックに書きこむ

Name /

E-Mail /

└>このツリーのレス記事をメールで受信しますか? YES/ NO/

Title /

URL /

Comment/ 通常モード->　図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>

解決保留迷宮入 Help! ←※回答者専用
解決したらチェック保留(コードテスト中など・・) 解決不可orレスが全く付かなくてほかのサイトに行くときなど・・

削除キー /
(半角8文字以内)　

このトピック参照回数 :

Re[4]: 日報に記載する個体識別番号の羅列

[133496] Re[4]: 日報に記載する個体識別番号の羅列

(2022/12/31(12:14))
□U R L/

[133495] Re[3]: 日報に記載する個体識別番号の羅列

(2022/12/31(11:07))
□U R L/

 ＞スマートな方法があれば
   
 うーむ、バージョンが古いので、思いつかないですね・・
   
 VBAなら可能ですけども(以下、参考まで）
   
 １．標準モジュールに後記コードを貼り付ける。
   
 ２．B1に以下の数式を入れる。※(A1:A3)に実際の範囲を入れる
   　　 =rptTool(A1:A3)
   
’標準モジュールにコピぺするVBA　↓

 Function rptTool(r As Range)
     Dim aCell As Range
     
     For Each aCell In r
         If aCell <> "" Then
             rptTool = rptTool & vbLf & aCell.Value
         End If
     Next
     rptTool = Mid(rptTool, 2, Len(rptTool))
 End Function
   
   <結果図>
   行  ______A______  ______B______
    1  個体識別番号1  個体識別番号1　　※←B1セルの書式は「折り返して全体を表示する」に設定しておく
                      個体識別番号2
                      個体識別番号3
    2  個体識別番号2 
    3  個体識別番号3 
 


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

[133492] Re[2]: 日報に記載する個体識別番号の羅列

(2022/12/31(09:11))
□U R L/

[133491] Re[1]: 日報に記載する個体識別番号の羅列

(2022/12/30(19:03))
□U R L/

その説明だけでは、具体的に何を悩んでいるのか他人には分かりません。

具体例を使ってご説明下さい。
セルの位置も分かる様にお願いします。


あと、エクセルのバージョンは何ですか？
複数ある場合は、一番古いバージョンを申告してください。

[133489] 日報に記載する個体識別番号の羅列

(2022/12/30(17:54))
□U R L/

このトピック内容の全ページ数 / [0]

- Child Forum -
Edit:ゆう-Ｇ