[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]
@
wd•¡‚·‚éƒf[ƒ^‚Ì擪‚Ƀtƒ‰ƒO‚ð‚‚¯‚é‚É‚Íxiteraj
A@@B ›@1111 1111 1111 › 2222 2222 › 3333 ›@4444 @@4444
ã‹L‚Ì—l‚ÉAB—ñ‚É“ü—Í‚³‚ê‚Ä‚¢‚éd•¡ƒf[ƒ^‚Ì
ÅãˆÊs‚Ƀtƒ‰ƒO‚ð•t‚¯‚½‚¢‚Æ
l‚¦‚Ä‚¨‚è‚Ü‚·B
”çs‚ ‚èAƒ}ƒNƒ‚ð‚²‹³Žö‚¢‚½‚¾‚¯‚ê‚ÎK‚¢‚Å‚·B
ƒ Žg—p ExcelFExcel2010AŽg—p OSFunknown „
[A] [B] [1] › 1111 [2] 1111 [3] 1111 [4] › 2222 [5] 2222 [6] 3333 ©‚±‚±‚Í’ñŽ¦‚µ‚½—Ⴞ‚Æd•¡‚µ‚Ä‚¢‚È‚¢‚悤‚Å‚·‚ªA›‚È‚ñ‚Å‚·‚©H [7] › 4444 [8] 4444 [9] 5555 ©˜A‘±‚µ‚Ä‚¢‚È‚¢ê‡‚à›‚É‚È‚è‚Ü‚·‚©H [10] 6666 [11] 5555 ©•s˜A‘±
iˆî—tj 2014/08/19(‰Î) 17:13
[6]‚Íd•¡‚µ‚Ä‚¨‚è‚Ü‚¹‚ñ‚ªƒ†ƒj[ƒN‚ȃf[ƒ^‚È‚Ì‚Å›‚ð•t‚¯‚½‚¢‚Å‚·B
[9]˜A‘±‚µ‚Ä‚¢‚È‚¢ê‡‚à›‚ð•t‚¯‚½‚¢‚Å‚·B
‰‚ß‚Ä‘‚«ž‚Þ‚½‚ßAŽŠ‚ç‚Ê“_‚ª‚ ‚ê‚΂²Žw“ìŠè‚¢‚Ü‚·B
iteraj 2014/08/19(‰Î) 17:22
‚±‚¿‚ç‚Å‚¢‚©‚ª‚Å‚·‚©H Sub tera() Dim dic As Object Dim Šî“_ As Range Dim tbl Dim i As Long, tmp As String Dim Result Set dic = CreateObject("Scripting.Dictionary") Set Šî“_ = Range("B1") tbl = Application.Transpose(Range(Šî“_, Cells(Rows.Count, Šî“_.Column).End(xlUp)).Value) ReDim Result(1 To UBound(tbl)) For i = 1 To UBound(tbl) tmp = tbl(i) If Not dic.exists(tmp) Then dic.Add tmp, "" Result(i) = "›" End If Next i Šî“_.Offset(, -1).Resize(UBound(tbl)).Value = Application.Transpose(Result) End Sub
iˆî—tj 2014/08/19(‰Î) 17:27
Šî“_‚Í•Ï”‚Å‚·B ’ñŽ¦‚³‚ꂽ•\‚Ís‚ÌŽw’肪‚ ‚è‚Ü‚¹‚ñ‚Å‚µ‚½‚Ì‚ÅAB1‚©‚çŽn‚Ü‚é‚Ì‚©AB100‚©‚çŽn‚Ü‚é‚Ì‚© •ª‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½B
ƒfƒtƒHƒ‹ƒg‚Å‚ÍB1‚©‚çƒf[ƒ^‚ªŽn‚Ü‚Á‚Ä‚¢‚邱‚Æ‚É‚È‚Á‚Ä‚¢‚Ü‚·B B100‚©‚çŽn‚Ü‚é‚Ì‚Å‚ ‚ê‚ÎA Set Šî“_ = Range("B1")@‚±‚±‚ð Set Šî“_ = Range("B100")‚±‚̂悤‚É
B3512‚©‚çŽn‚Ü‚é‚Ì‚Å‚ ‚ê‚ÎA Set Šî“_ = Range("B1")@ ‚±‚±‚ð Set Šî“_ = Range("B3512")‚±‚̂悤‚É’¼‚µ‚Ä‚‚¾‚³‚¢B
iˆî—tj 2014/08/19(‰Î) 18:01
Loop‚È‚µ‚Å Sub test() [a2:a1000] = [if(countif(offset(b2:b1000,,,row(1:1000)),b2:b1000)=1,"›","")] End Sub iseiyaj 2014/08/19(‰Î) 20:00
tera‚³‚ñ‚µƒXƒŒƒbƒh‚¨ŽØ‚肵‚Ü‚·B
seiya‚³‚ñ Evaluate‚ÌŽg‚¢•û‚Å‚µ‹³‚¦‚Ä‚‚¾‚³‚¢B Œ¤‹†ƒXƒŒ‚ŕ׋‚µ‚Ä‚Ý‚ÄAŽ©•ª‚È‚è‚ÉŽg‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚ªA¡‰ñ‚̂悤‚ɔ͈͂ª‰Â•Ï‚É‚È‚éê‡‚Ì Žg‚¢•û‚ª•ª‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½B
SUMIF‚Ås–ˆ‚Ì—ÝŒv‚ðo‚·‚â‚è•û“™‚È‚ÇAu‚±‚¤‚¢‚¤‚Æ‚«‚Í‚±‚¤‚·‚éIv‚̂悤‚È’è΂ª‚ ‚è‚Ü‚µ‚½‚çA ‚¢‚‚‚©‹³‚¦‚Ä‚¢‚½‚¾‚«‚½‚¢‚Å‚·EEEB
‚¿‚È‚Ý‚É¡‰ñ‚Ì‚à‚Ì‚Í dim tmp tmp = filter([if(countif(offset(b2:b1000,,,row(1:1000)),b2:b1000)=1,b2:b1000,"-")],"-",False) ‚̂悤‚É‚·‚ê‚ÎADictionary‚âArrayList‚È‚Ç‚ðŽg‚킸‚Éd•¡‚Ì–³‚¢”z—ñ‚ªŽæ“¾‚Å‚«‚é‚æ ‚¤‚ÈŽg‚¢•û‚Æ‚µ‚Ä‚à—LŒø‚È‚Ì‚Å‚µ‚傤‚©H
iˆî—tj 2014/08/20(…) 08:52
Evaluate‚Å‚ÍA”z—ñŠÖ”(Transpose“™)ˆÈŠO‚ÌŠÖ”‚ðŽg—p‚µ‚Ä”z—ñ‚ð•Ô‚·ê‡‚Í ‚Ü‚¸A‰¼‘z”z—ñ‚ð쬂µ‚Ä‚»‚±‚Ö–„‚ßž‚ñ‚Å‚¢‚‚悤‚Èì‹Æ‚É‚È‚è‚Ü‚·B
ŽQl‚É‚È‚è‚Ü‚·‚©H
iseiyaj 2014/08/20(…) 13:10
dim tmp tmp = filter(Application.Transpose([if(countif(offset(b2:b1000,,,row(1:1000)),b2:b1000)=1,b2:b1000,"-")]),"-",False) ~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (1) (2) (1)1“_–ڂ̊ԈႢ‚É‹C•t‚«‚Ü‚µ‚½EE (2)‚±‚Ìu‰¼‘z”z—ñv‚Ìl‚¦•û‚ª‚¢‚Ü‚¢‚¿—‰ðo—ˆ‚Ä‚¢‚È‚¢‚悤‚ÅAROWŠÖ”‚Å”z—ñì‚Á‚Ä‚ ‚°‚Ä‚¢‚é @ ‚Æ‚±‚ë‚Ü‚Å‚Í•ª‚©‚Á‚½‚Ì‚Å‚·‚ª @ OFFSET‚Ì‘æ4ˆø”u‚‚³v‚É“ü‚ê‚é‚Ƃǂ̂悤‚É‚È‚é‚Ì‚©? @ ”Ž®‚ÌŒŸØ‚àŽg‚Á‚Ä‚Ý‚½‚Ì‚Å‚·‚ªVALUEƒGƒ‰[‚Ì‚ ‚ÆA2s–Ú‚©‚ç1000s–Ú‚Ü‚Å‚ÌCOUNTIF‚Ì”z—ñ‚ª @ o—ˆ‚ÄATRUE/FALSE‚Ì”z—ñ‚É‚È‚èA‚·‚®Œ‹˜_‚É‚È‚Á‚Ä‚µ‚Ü‚¢AOFFSET‚Ìu‚‚³v‚ɂ‚¢‚Ä‚æ‚ @ —‰ð‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½EEEB
“––ÊuŒöŽ®v‚̂悤‚ÉOFFSET‚ðˆø”‚ÉŽg‚¤•û–@‚ðFXŽŽ‚µ‚ÄAŒãX—‰ð‚Å‚«‚é‚悤‚ÉŠæ’£‚è‚Ü‚·I
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B iˆî—tj 2014/08/20(…) 13:41
‰¼‘z”z—ñ‚Ìl‚¦•û‚Í‚¿‚å‚Á‚Æ“ï‰ð‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªB
IfŠÖ”‚ðŽg—p‚µ‚Ä쬂·‚é‚Æ—‰ð‚µ‚â‚·‚¢‚©‚ÈH 4—á–Ú‚Æ5—á–Ú‚ÌŒ‹‰Ê‚É’–Ú‚µ‚Ä‚‚¾‚³‚¢B Sub test() Dim temp temp = [countif(a1:a100,a1:a100)] temp = [if(row(1:100),countif(a1:a100,a1:a100))] temp = [countif(offset(a1:a100,,,row(1:100)),a1:a100)] temp = [if(countif(offset(a1:a100,,,row(1:100)),a1:a100)=1,"OK","NO")] temp = [if(row(1:100),countif(offset(a1:a100,,,row(1:100)),a1:a100))] End Sub i@seiyaj 2014/08/20(…) 14:21
3—á–Ú‚ÅçT‚«‚Ü‚µ‚½EEE ”z—ñ‚Å‚Í‚È‚A”’l‚ª–ß‚Á‚Ä‚«‚½‚Ì‚Å‚·‚ªA”Ž®‚ÌŒŸØ‚ð‚µ‚Ä‚Ý‚é‚ÆAOFFSET‚Ì‚Æ‚±‚낪&A&1‚É•ÏŠ· ‚³‚ê‚Ä‚©‚çCOUNTIF‚ÌŒvŽZ‚ª‚³‚ê‚Ü‚·B ‚±‚ꂪ4—á–Ú‚É‚È‚é‚Æ‚¢‚«‚È‚è”z—ñ‚É‚È‚Á‚¿‚Ⴄ‚Á‚Ä‚Æ‚±‚낪“ª‚ªˆ«‚¢Šˆ×‚Å‚æ‚‚í‚©‚Á‚Ä‚È‚¢‚Ý‚½‚¢‚Å‚·EEE
4—á–Ú‚ÍŠe—v‘f‚ª1‚È‚çOKA‚»‚êˆÈŠO‚È‚çNG 5—á–Ú‚Í‹^Ž—”z—ñ‚ÌROW‚ð—^‚¦‚ÄA0ˆÈãiTruej‚Ì”z—ñ‚ð“n‚µ‚ÄACOUNTIF‚Ì–ß‚è’l‚É‚È‚é‚Æ‚¢‚¤‚Æ‚±‚ë ‚Ü‚Å•ª‚©‚è‚Ü‚µ‚½B‹U‚Í‚ ‚肦‚È‚¢‚Ì‚ÅAÈ—ª‚³‚ê‚Ä‚¢‚é‚Ì‚Å‚·‚©‚ËH
ŒvŽZŒ‹‰Ê‚Ì—‹ü‚Í‚í‚©‚é‚Ì‚ÉA”z—ñ‚É‚·‚é—‹ü‚ª‚í‚©‚Á‚Ä‚¢‚È‚¢A‚»‚ñ‚ÈŠ´‚¶‚Å‚·B
iˆî—tj 2014/08/20(…) 16:48
3—á–Ú‚ÍA‰¼‘z”z—ñ‚ª‚Å‚«‚Ä‚È‚¢‚Ì‚Åʼn‚Ì’l‚ª•Ô‚Á‚Ä‚‚é‚Í‚¸‚Å‚·B ŒvŽZŽ©‘Ì‚Í‚Å‚«‚Ä‚¢‚邪‚»‚ÌŒ‹‰Ê‚ð“ü‚ê‚éŠí‚ª–³‚¢ó‘Ô‚Å‚·B
‚»‚±‚Å5—á–Ú‚ÅIfŠÖ”‚ðŽg—p‚µ‚ÄA‰¼‘z”z—ñ‚ðì‚éB if(row(1:100) ŒvŽZ‚³‚ꂽŒ‹‰Ê‚ªA”z—ñ‚ÉŠi”[‚³‚ê‚éB iseiyaj 2014/08/20(…) 16:58
IF(ROW@‚ÍTrueFalse‚ÉŠÖŒW‚È‚AŠí‚ðì‚é‚Á‚Ä‚±‚Æ‚Å‚·‚ËI ‚Æ‚¢‚¢‚‚ÂA‚Ü‚¾‚Ü‚¾—‰ðo—ˆ‚Ä‚¢‚È‚¢‚Æ‚±‚낪‚ ‚è‚»‚¤‚Å‚·‚Ì‚ÅA‰½‰ñ‚àŽg‚Á‚Ä‚Ý‚Ä™X‚É—‰ð‚µ‚Ä ‚¢‚«‚Ü‚·EEE
’š”J‚É‹³‚¦‚Ä‚¢‚½‚¾‚¢‚½‚Ì‚É\‚µ–󂲂´‚¢‚Ü‚¹‚ñB iˆî—tj 2014/08/20(…) 17:39
[ ˆê——(ÅVXV‡) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.