Results of 1 - 1 of about 29 for 』（エクセル）
(0.013 sec.)
- [[20150406150132]]
- #score: 15826
- @digest: 03b0ae7fa14390eecb4b2ca0b4797cc5
- @id: 67704
- @mdate: 2015-04-06T23:02:31Z
- @size: 2589
- @type: text/plain
- #keywords: 目⇒ (11311), wkout (8839), 横ル (6766), 列sh (3416), 字5 (2945), 合b (2071), ル的 (1987), e18 (1930), 別セ (1859), 字1 (1453), ル? (994), ir (806), 縦横 (753), 出力 (670), 数字 (652), 2015 (583), 文字 (552), evaluate (547), 月) (528), column (523), isnumber (511), sheet2 (427), の文 (405), 実現 (370), 。b (364), 抽出 (364), 立て (359), specialcells (345), に数 (340), sheet1 (335), transpose (316), ル） (295)
- 『数字を立てたものに対しての文字の抽出』（エクセル）
B C D E F G H I J K 2 あ い う え お か き く け こ 3 4 5 6 7 8 9 5 1 10 0 11 0 12 0 13 8 2 12 B9:K9に数字を立てたもののみ別セル（シート）に たとえば、B:9に数字5を入力した場合の文字のみを抽出する方法 この場合B:9とC:9に数字入力があるので 別セルに「あ」と「い」を抽出したいのですがどなたかご教授ください…。 ＜ 使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- ビットと言っていますが、ただの文字ですよね? あと、別セルとは具体的にどこ? 出力は1文字1セル? 指定のなかった分は詰める必要は? 文字があったら1行目の文字をセット。それを縦横ループさせて1セルずつ処理。そんな簡単なマクロで実現できそうですよ。 ご自分で作ってみては? （???） 2015/04/06(月) 16:04 ---- ただの文字です。文字というか数字です。 ちょっと説明がおかしかったのでもう一度。 B:9からK:9までの間で、数字が入力されたものをピックアップして たとえば、別シートのE18〜E41に順番に出力させる。 出力させるものは、上の図からいえばB:2に「あ」とありますが、これはあくまでもサンプル的なものなので、B:2の文字列をE18に、というような感じです。 B:9に数字2 D:9に4 H:9に3と入力した場合、 E18にあ E19にう E20にき となるようにくみたいのです…。 （エクセル） 2015/04/06(月) 16:21 ---- セルは詰めるのね…。同じ列で複数行指定されていた場合は、全部表示で良いのかな? Sub test() Dim wkOut As Worksheet Dim R As Range Dim i As Long Dim iR As Long Set wkOut = Sheets("Sheet2") iR = 18 For Each R In Range("B9:K" & Cells(Rows.Count, "B").End(xlUp).Row) If R.Value <> 0 Then wkOut.Cells(iR, "E").Value = Cells(2, R.Column).Value iR = iR + 1 End If Next R End Sub （???） 2015/04/06(月) 16:47 ---- Sub test() Dim r As Range, x, n As Long n = 18 For Each r In Range("b9", Range("b" & Rows.Count).End(xlUp)).SpecialCells(2, 1) x = Filter(Evaluate("if(isnumber(" & r.Resize(, 10).Address & "),b2:k2,char(2))"), Chr(2), 0) Sheets("sheet2").Cells(n, "e").Resize(UBound(x) + 1).Value = Application.Transpose(x) n = n + UBound(x) + 1 Next End Sub （seiya） 2015/04/06(月) 21:44 ---- 数式やけど。。。 Sheet1の9行目 ⇒ Sheet2のE列 Sheet1の10行目 ⇒ Sheet2のF列 ・・・ として Sheet2のE18に =IF(COUNT(INDEX(Sheet1!$B$9:$K$15,COLUMN(A1),0))<ROW(A1),"",INDEX(Sheet1!$2:$2,SMALL(INDEX((INDEX(Sheet1!$B$9:$K$15,COLUMN(A1),0)="")*10^16+COLUMN($B1:$K1),),ROW(A1)))) （GobGob） 2015/04/07(火) 08:02... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201504/20150406150132.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97050 documents and 608253 words.
訪問者：