エクセルの学校：全文検索：Hyper Estraier： cell filename

Results of 1 - 1 of about 295 for cell filename (0.001 sec.)

cell (1170), filename (1981)

[[20050811191218]]: #score: 11170; @digest: eea11e300411c861b832fb774d5ae7c0; @id: 16143; @mdate: 2005-08-11T12:07:32Z; @size: 3285; @type: text/plain; #keywords: listsheet (18705), mywh (18488), カ種 (15630), 尿効 (15630), 利尿 (15630), カ色 (15630), カ利 (15630), ビタ (15022), 種ス (14761), カ○ (14761), 果ス (14111), 竜太 (14010), カ× (13911), イカ (12885), トり (12049), タミ (9713), 三文 (8972), スイ (8151), ラり (7438), ごダ (7438), ごゴ (7380), ーー (6841), リラ (5950), 大好 (5919), 濁音 (5602), 局出 (5200), ごジ (4723), 愛媛 (4660), イエ (3526), ーベ (3143), エッ (3059), オレ (3009); 『LISTシートより飛ばしたい』（竜太）
みかんSheet LISTSheet みかんおいしい ←と飛ばしたいみかんおいしいオレンジみかんオレンジ愛媛みかん愛媛ぶつぶつみかんぶつぶつビタミンシーみかんビタミンシー大好きみかん大好きこおりゃええみかんこおりゃええ木みかん木三文字みかん三文字しりとりはだめみかんしりとりはだめりんごゴリラりんごダイエットりんごジュースりんごおもいつかへんりんご酢りんごシャーベットりんご 3文字りんご濁音りんごあついりんごしんどーりんご多すぎスイカ種スイカ色かわいいスイカ利尿効果スイカ ○ スイカ × ・・・・・・ Sheetは沢山あり、シート名と同じものを抽出したいのです出来そうで、全く出来なくて困ってます。結局出来てないのですが(>_<) ---- LIST Sheetの[みかん、りんご、スイカ・・・]が昇順でも降順でもいいですが、まとまって一つのブロックになっている事を前提とした、関数処理の一例です。みかん等のシートを全選択し（当然LISTシートは除きます） A1セルで、シート名を取得します。 =MID(CELL("filename",A1),FIND("]",CELL("filename",A1),1)+1,31) B列で表示していくとして、B1セルに =IF(ISNUMBER(MATCH($A$1,LIST!$A$1:$A$30,FALSE)), IF(COUNTIF(LIST!$A$1:$A$30,$A$1)>=ROW(), OFFSET(INDIRECT(ADDRESS(MATCH($A$1,LIST!$A$1:$A$30,FALSE),1,1,1,"LIST")),ROW()-1,1), ""),"") （※長〜いので改行してます。）として、B20セルぐらいまでコピー&ペーストしてくださいまし。尚、LISTシートのデータ範囲は、A1:B30として作ってますので、該当範囲に変更してください。沢山のシートがどれぐらいかわかりませんが、演算が遅くなる可能性は大です。 (sin) 他にも方法はあると思いますが、とりあえずの方法です。 ---- 最後までフォロー出来ないかもしれませんが、、、sinさんが回答してくれたので安心しました。 LISTSheetシートのAB列にみかんおいしいみかんオレンジみかん愛媛みかんぶつぶつみかんビタミンシーみかん大好きみかんこおりゃええみかん木みかん三文字みかんしりとりはだめりんごゴリラりんごダイエットりんごジュースりんごおもいつかへんりんご酢りんごシャーベットりんご 3文字りんご濁音りんごあついりんごしんどーりんご多すぎスイカ種スイカ色かわいいスイカ利尿効果スイカ ○ スイカ × こんなデータがあるとして、各シートを作って↓このコードを標準モジュールに記述してください。どうでしょうか?? Option Explicit Sub てすと() Dim MyA As Variant Dim MyWh() As Variant Dim wh As Worksheet Dim i As Long, k As Long With Sheets("LISTSheet") MyA = .Range("A1", .Range("A65536").End(xlUp)).Resize(, 2).Value For Each wh In Worksheets For i = 1 To UBound(MyA, 1) If MyA(i, 1) = wh.Name Then k = k + 1 ReDim Preserve MyWh(1 To k) MyWh(k) = MyA(i, 2) End If Next If k > 0 Then wh.Range("A1").Resize(UBound(MyWh)).Value = Application.Transpose(MyWh) End If k = 0 Next End With Erase MyA, MyWh End Sub （SoulMan） ---- すんげーーーーー関数の達人とマクロの達人にかかるとできちゃうんですねーーーーー\(^o^)/ すんげーーーーーでも、理解できねーーー感動しました。<m(__)m> ありがとうございました。感謝です<(_ _)>（竜太）むずかすぃーーーー ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200508/20050811191218.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ