Results of 1 - 1 of about 48832 for A�����������������������... (0.009 sec.)
- [[20110822221559]]
- #score: 1420
- @digest: 5af4c112594b67ef3179df5962b74691
- @id: 55643
- @mdate: 2011-08-23T09:45:57Z
- @size: 2788
- @type: text/plain
- #keywords: cntk (14761), cntn (14761), cnth (13911), 火b (11665), cnta (11311), ぁ" (6127), 殊記 (4019), ド体 (3788), 導御 (3548), myval (2358), 定式 (2281), 漢字 (2189), 木5 (1841), 体系 (1737), 1000 (1712), 外字 (1628), 月a (1573), ァベ (1562), 列e (1396), ベッ (1392), カタ (1312), き取 (1275), ・月 (1165), ルフ (1152), タカ (1151), 列d (1091), あ" (1063), カナ (1007), アル (959), 金土 (851), 列c (845), 特殊 (777)
- 『抜き取り』（dog）
A列にアルファベット、漢字 ひらがな 数字がランダムにあります。 A列 B列 C列 D列 E列 あ 1 あ 月 A 1 2 い 火 B A ・ ・ ・ ・ 月 ・ ・ ・ ・ 2 火 B 3 い C D う 4 え E 水 木 5 金 土 お このようにB列C列D列E列に抜き取りたいです。 よろしくご指導御願いします。 Excel2003 WindowsXPです。 ---- 数字というのは半角数字、アルファベットというのは半角アルファべット（大文字、小文字）だね。 ひらがなはわかるけど漢字ってのが、ちょっとつらいかな?特殊記号や外字やカタカナなんかもあるので これが「漢字」というのは特定不可能。（カタカナは範囲が決まっているので特定はできるけどね） 数字、ひらがな、アルファベット「以外」なら判定できるけど。 で、これを関数で? (ぶらっと) ---- B1:=INDEX($A$1:$A$1000,SMALL(IF($A$1:$A$1000<=10^10,ROW($A$1:$A$1000),""),ROW(A1)))&"" C1:=IF(SUMPRODUCT(($A$1:$A$1000>="あ")*($A$1:$A$1000<="ん"))<ROW(B1),"",INDEX($A$1:$A$1000,SMALL(IF(($A$1:$A$1000>="あ")*($A$1:$A$1000<="ん"),ROW($A$1:$A$1000),""),ROW(B1)))) D1:=IF(SUMPRODUCT(($A$1:$A$1000>"ん")*1)<ROW(D1),"",INDEX($A$1:$A$1000,SMALL(IF($A$1:$A$1000>"ん",ROW($A$1:$A$1000),""),ROW(D1)))) E1:=IF(SUMPRODUCT(($A$1:$A$1000>="A")*($A$1:$A$1000<="Z"))<ROW(E1),"",INDEX($A$1:$A$1000,SMALL(IF(($A$1:$A$1000>="A")*($A$1:$A$1000<="Z"),ROW($A$1:$A$1000),""),ROW(D1)))) すべての式は配列数式なので [Ctrl]+[Shift]+[Enter]で確定 式の前後に [ ]が付きます。 下へコピー (NB) ---- よこから失礼。 ひらがなのコード体系としては、最も小さいものは "あ" ではなく "ぁ" 。 なので、NBさんの式の "あ" を "ぁ" に変えるといいかも。 (ぶらっと) ---- で、質問者さんのリクワィアメントは、おそらく関数なんだろうけど、VBAでも、そんなに長くならないので。 Sub Sample() Dim c As Range Dim myVal As Variant Dim i As Long, j As Long Dim cntH As Long, cntA As Long, cntN As Long, cntK As Long Columns("B:E").ClearContents For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)) myVal = c.Value Select Case myVal Case "ぁ" To "ん" cntH = cntH + 1 i = cntH j = 3 Case "A" To "Z" cntA = cntA + 1 i = cntA j = 5 Case 0 To 9 cntN = cntN + 1 i = cntN j = 2 Case Else 'その他は全て漢字列に。 cntK = cntK + 1 i = cntK j = 4 End Select Cells(i, j).Value = c.Value Next End Sub (ぶらっと) ---- NBさん回答ありがとうございます。 解決しました。 ぶらっとさんのVBAでも解決しました。 ぶらっとさん NBさん有難うございました。 (dog)... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201108/20110822221559.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97018 documents and 608144 words.
訪問者：