[ ‰‚߂Ă̕û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]
@
wƒI[ƒgƒtƒBƒ‹ƒ^xi‚â‚Á‚½‚Ý‚½‚¢j
1@@@2@ 1 a œœ’¬1’š–Ú 2 b@œœ’¬2’š–Ú 3 c@œœ’¬1’š–Ú 4 d@œœ’¬3’š–Ú . .@@@D . .@@@D @ ‚Æ‚¢‚¤ƒf[ƒ^‚ª‚ ‚è‚Ü‚·B ‚±‚Ì’†‚Å1’š–ڂ̃f[ƒ^‚ð’Šo‚µA‘¼‚Í휂µ‚½‚¢‚ÆŽv‚Á‚Ä‚¢‚Ü‚·B ˆê‚‚̃V[ƒg‚Å‚µ‚½‚çƒI[ƒgƒtƒBƒ‹ƒ^‚ðŽg‚Á‚Ăł«‚Ü‚·‚ªA@ 50ƒV[ƒg‚ ‚é‚à‚Ì‚ðˆêЇ‚ň—‚µ‚½‚¢‚ÆŽv‚Á‚Ä‚¢‚Ü‚·B ŽŽ‚µ‚ÉŽ©•ª‚Ń}ƒNƒ‚ð‹L˜^‚µ‚Äì‚Á‚½‚ñ‚Å‚·‚ªA‚»‚ê‚É‚·‚ׂẴV[ƒg‚Å“¯‚¶ˆ—‚ð‚· ‚邿‚¤‚É‚µ‚Ă݂½‚̂ł·‚ªAƒV[ƒg‚²‚Æ‚É휂·‚és‚ªˆá‚¤‚̂ł¤‚Ü‚‚¢‚«‚Ü‚¹‚ñ‚Å‚µ ‚½B 휂·‚és‚ªƒV[ƒg‚²‚ƂɈႤ‚̂ł·‚ªA‚¤‚Ü‚ˆ—‚·‚é•û–@‚Í‚ ‚é‚Å‚µ‚傤‚©H
@
FX‚â‚è•û‚Í‚ ‚è‚Ü‚·‚ªAƒI[ƒgƒtƒBƒ‹ƒ^‚âƒtƒBƒ‹ƒ^ƒIƒvƒVƒ‡ƒ“‚È‚ÇEEE Ž„‚Ìꇂ͕’i‚̓tƒBƒ‹ƒ^‚ðÝ’è‚·‚é‚Ì‚ª–Ê“|‚Ȃ̂ŠColumnDifferences‚ðŽg‚¤•û–@‚ð—Ç‚Žg‚¢‚Ü‚·B
‚»‚ê‚ðŽg‚Á‚½ŠY“–sˆÈŠO‚ð”ñ•\ަ‚É‚·‚éƒTƒ“ƒvƒ‹ƒR[ƒh‚Å‚·B
Sub Test() Dim ws As Worksheet, r As Range For Each ws In ThisWorkbook.Worksheets With ws.Columns("B") Set r = .Find(What:="*1’š–Ú*", After:=.Cells(1), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False) If Not r Is Nothing Then .ColumnDifferences(r).EntireRow.Hidden = True End With Next ws End Sub
i‚‚‚‚j
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·I ‚¤‚Ü‚‚¢‚«‚Ü‚µ‚½B
‚¢‚ë‚¢‚ë‚ ‚é‚ñ‚Å‚·‚ËEEB‰œ‚ª[‚¢EEB
(‚â‚Á‚½‚Ý‚½‚¢j
‚±‚ñ‚΂ñ‚íB ‚¤‚Ü‚‚¢‚Á‚½‚©‚ÆŽv‚Á‚½‚ç‚‚܂«‚Ü‚µ‚½EEB 1@@2@ @‚ЂƑg–Ú @–¼‘O@ZŠ 1 a œœ’¬1’š–Ú 2 b@œœ’¬2’š–Ú 3 c@œœ’¬1’š–Ú 4 d@œœ’¬3’š–Ú . .@@@D . .@@@D ‚Æ‚¢‚Á‚½•—‚É3s–Ú‚©‚çŽn‚Ü‚é‚Ì‚ÅA cell(3,1) ‚Æ‚µ‚Ü‚µ‚½B ‚µ‚©‚µA‚â‚Í‚è‚Ù‚µ‚¢ƒf[ƒ^ˆÈŠO‚Í휂µ‚½‚¢‚ÆŽv‚¢Ahidden‚ðclear‚É‚µ‚½‚ç1s–Ú2s–Ú‚àÁ‚¦‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½B clear‚ðŽg‚킸A1s–Ú2s–Ú‚ðŽc‚µ‚‚ÂAs‚ð휂ł«‚é•û–@‚Í‚ ‚é‚Å‚µ‚傤‚©H
(‚â‚Á‚½‚Ý‚½‚¢j
o’£‚ŕԎ–‚ª’x‚‚È‚è‚Ü‚µ‚½B ‚±‚ñ‚ÈŠ´‚¶‚Å‚µ‚傤‚©H
Sub Test() Dim ws As Worksheet, r As Range For Each ws In ThisWorkbook.Worksheets With ws.Columns("B") Set r = .Find(What:="*1’š–Ú*", After:=.Cells(1), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False) If Not r Is Nothing Then _ Application.Intersect(.Rows("3:" & .Rows.Count), _ .ColumnDifferences(r)).EntireRow.Delete Shift:=xlUp End With Next ws End Sub
i‚‚‚‚j
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B ‹x‚݂ɓü‚Á‚½‚̂ʼnïŽÐ‚ÅŽÀs‚Å‚«‚é‚©‚͂킩‚è‚Ü‚¹‚ñ‚ªA‰Æ‚ÅŽ—‚½ƒf[ƒ^‚ðì‚Á‚Ä‚â‚Á‚Ă݂½‚炤‚Ü‚‚¢‚«‚Ü‚µ‚½B e؂ɋ³‚¦‚Ä‚¢‚½‚¾‚«A‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½I
(‚â‚Á‚½‚Ý‚½‚¢j
‰½‰ñ‚à‚·‚¢‚Ü‚¹‚ñB ‰ïŽÐ‚Å‚½‚ß‚·‚ÆA1s1—ñ–ڂ̃Zƒ‹‚̂ЂƑg–ÚA‚ªÁ‚¦‚Ä‚µ‚Ü‚µ‚Ü‚µ‚½B ‚Ü‚½A–1’š–Ú–‚Æ‚µ‚Ä‚¢‚é‚̂ł·‚ªA1’š–Ú‚Ì‚½‚Æ‚¦‚ÎA1”Ô’n‚Í•\ަ‚³‚ê‚é‚Ì‚É2”Ô’n–ÚˆÈ~‚Í휂³‚ê‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½B —‰ð‚ª‚½‚Ȃ肂Ä\‚µ–ó‚È‚¢‚̂ł·‚ªAƒ}ƒNƒ—p‚̃GƒNƒZƒ‹ƒtƒ@ƒCƒ‹‚ðì‚Á‚ÄA‘Îۂ̃GƒNƒZƒ‹‚Ń}ƒNƒ‚ðŽÀs‚µ‚½‚Ì‚ÉA‰½‚à‹N‚±‚ç‚È‚¢‚Ì‚ÍAhThisWorkbook.Worksheetsh‚ƂȂÁ‚Ä‚¢‚é‚©‚ç‚Å‚µ‚傤‚©H
i‚â‚Á‚½‚Ý‚½‚¢j
„ŽŽ‚µ‚ÉŽ©•ª‚Ń}ƒNƒ‚ð‹L˜^‚µ‚Äì‚Á‚½‚ñ‚Å‚·‚ª ‚Á‚ÄŽ–‚Å‚µ‚½‚ªA‚Ç‚¤Œ¾‚Á‚½ƒR[ƒh‚ðì‚Á‚½‚̂ł·‚©H
(HANA)
hŽŽ‚µ‚É`h‚̉º‚è‚ÍŠ¨ˆá‚¢‚Å‚µ‚½B‚à‚Æ‚à‚Æ‰½‚à“ü‚Á‚Ä‚¢‚Ü‚¹‚ñ‚Å‚µ‚½B Ž©•ª‚Åì‚Á‚½‚Ì‚Í2”Ô–Ú‚É‘‚¢‚½’Ê‚è‚ÅA¡‚Ímomo—l‚É‹³‚¦‚Ä‚¢‚½‚¾‚¢‚½ƒR[ƒh‚ð“ü—Í‚µ‚Ü‚µ‚½B ‚Ç‚¤‚µ‚Ä‚àA–1’š–Ú–‚Æ‚µ‚Ä‚¢‚é‚Ì‚ÉAˆê”Ôʼn‚É‹LÚ‚³‚ê‚Ä‚¢‚éA—Ⴆ‚΂ł·‚ªA @–¼‘O@ZŠ 1 a œœ’¬1’š–Ú3”Ô’n 2 b@œœ’¬2’š–Ú1”Ô’n 3 c@œœ’¬1’š–Ú5”Ô’n 4 d@œœ’¬1’š–Ú3”Ô’n . .@@@D . .@@@D
‚ƂȂÁ‚Ä‚¢‚邯AŒ‹‰Ê‚Í 1 a œœ’¬1’š–Ú3”Ô’n 4 d@œœ’¬1’š–Ú3”Ô’n ‚ƂȂÁ‚ÄA‚R”Ô’nˆÈ~‚Ì1’š–ڂ̃f[ƒ^‚ªÁ‚¦‚Ä‚µ‚Ü‚µ‚Ü‚µ‚½B
(‚â‚Á‚½‚Ý‚½‚¢j
ColumnDifferences ‚Ì EntireRow ‚ð Delete ‚Å‚·‚©‚ç‚ËBBB
„hŽŽ‚µ‚É`h‚̉º‚è‚ÍŠ¨ˆá‚¢‚Å‚µ‚½B ‚Á‚ÄŽ–‚ÍA‚²Ž©g‚Åì‚Á‚Ä‹‚ç‚ê‚È‚¢@‚Á‚ÄŽ–‚Å‚·‚©H
‚Ü‚¸‚̓}ƒNƒ‚Ì‹L˜^‚ð‚â‚Á‚Ă݂ç‚ê‚Ä‚ÍH Šî–{“I‚ɂͫ‚̎臂Åo—ˆ‚邯Žv‚¢‚Ü‚·B ‚PD‚Qs–Ú‚ð‘}“ü ‚QDA2ƒZƒ‹‚ð‘I‚ñ‚ŃI[ƒgƒtƒBƒ‹ƒ^‚ðÝ’è ‚RDB2ƒZƒ‹‚̃tƒBƒ‹ƒ^‚Åu1’š–Ú‚ðŠÜ‚܂Ȃ¢v‚ð’Šo ‚SD”͈͂ð‘I‘ð‚µ‚Äsíœ ‚TDƒI[ƒgƒtƒBƒ‹ƒ^‚ð‰ðœ ‚UD‚Qs–Ú‚ðíœ
ׂ©‚¢C³‚⃋[ƒvˆ—‚̒ljÁ‚È‚Ç FX’ljÁ‚ª•K—v‚Å‚·‚ªB
o—ˆ‚½ƒR[ƒh‚ð‚±‚¿‚ç‚ÉÚ‚¹‚Ă݂ĉº‚³‚¢B ‚Ü‚½AƒR[ƒhŽÀs‘O‚ɃI[ƒgƒtƒBƒ‹ƒ^‚ªÝ’肳‚ê‚Ä‚¢‚é‰Â”\«‚ª —L‚é‚©‚Ç‚¤‚©‚à‹³‚¦‚ĉº‚³‚¢B
(HANA)
‚¨‚Á‚ÆBBBB ‚P‚̎臂Å2s–Ú‚ð‘}“ü‚µ‚½‚Ì‚Å
‚QDA2ƒZƒ‹‚ð‘I‚ñ‚ŃI[ƒgƒtƒBƒ‹ƒ^‚ðÝ’è @@« @@A3ƒZƒ‹
‚RDB2ƒZƒ‹‚̃tƒBƒ‹ƒ^‚Åu1’š–Ú‚ðŠÜ‚܂Ȃ¢v‚ð’Šo @@« @@B3ƒZƒ‹
‚Å‚·‚ËB
ޏ—炵‚Ü‚µ‚½B
(HANA)
‚Í‚¶‚߂͎©•ª‚ŃI[ƒgƒtƒBƒ‹ƒ^‚̃}ƒNƒ‚ð‹L˜^‚µ‚Ä‚â‚Á‚½‚ñ‚Å‚·A‚·‚ׂẴV[ƒg‚É‚»‚̈—‚ð‚ǂ̂悤‚É‚·‚é‚©‚í‚©‚ç‚È‚‚ÄEEEB vba‚Ì–{‚ðŒ©‚ÄAu‚·‚ׂẴV[ƒg‚É“¯‚¶ˆ—‚ð‚·‚év‚Æ‚¢‚¤ƒR[ƒh‚ð–{‚ð‚݂đ‚«ž‚ñ‚¾‚̂ł·‚ª‚¤‚Ü‚‚¢‚©‚È‚‚ÄEEEB Sub () Dim sh As Worksheet
For Each sh In Worksheets ‚±‚±‚ɃI[ƒgƒtƒBƒ‹ƒ^‚Ì“à—e
Next sh
End Sub
‚Æ‚¢‚Á‚½‚±‚Æ‚ð‚µ‚½‚̂ł·‚ªEEEB
ƒI[ƒgƒtƒBƒ‹ƒ^Ž©‘Ì‚ªŽ©•ª‚Å‹L˜^‚³‚¹‚½‚à‚Ì‚¾‚Á‚½‚̂ł¤‚Ü‚‚¢‚‚Í‚¸‚͂ȂiƒV[ƒg‚²‚Æ‚É휂·‚és‚ªˆá‚¤‚½‚ßjEEƒI[ƒgƒtƒBƒ‹ƒ^‚̃}ƒNƒƒR[ƒh‚ð–{‚ðŒ©‚Ä‚â‚Á‚Ă͌©‚½‚̂ł·‚ªAƒGƒ‰[‚ɂȂè‚Ü‚µ‚½B–{‚͉ïŽÐ‚É‚ ‚é‚à‚̂šA‚ǂ̂悤‚ȃR[ƒh‚Å‚¾‚߂Ȃ̂©‹L“ü‚Å‚«‚È‚¢‚̂ł·‚ªEEEB ‚È‚ñ‚¹A’´‰SŽÒ‚Ȃ̂ł¨’p‚¸‚©‚µ‚¢ŒÀ‚è‚Å‚·B
(‚â‚Á‚½‚Ý‚½‚¢j
ƒ}ƒNƒ‚Ì‹L˜^‚¾‚¯‚Åo—ˆ‚鎖‚ÍŒÀ‚ç‚ê‚Ä‚«‚Ü‚·B ‚µ‚©‚µAo—ˆ‚½ƒR[ƒh‚Í@ƒ}ƒNƒ‚ðì‚éÛ‚Ì ŽQl‚É‚·‚邱‚Æ‚ªo—ˆ‚Ü‚·B
Ž„‚Í „Šî–{“I‚ɂͫ‚̎臂Åo—ˆ‚邯Žv‚¢‚Ü‚·B „o—ˆ‚½ƒR[ƒh‚ð‚±‚¿‚ç‚ÉÚ‚¹‚Ă݂ĉº‚³‚¢B ‚Æ‘‚¢‚Ä‚¢‚Ü‚·B
(HANA)
‰ïŽÐ‚̃f[ƒ^‚̂悤‚È‚à‚̂łµ‚Ă݂܂µ‚½‚ªEEEB Sub Macro1() ' ' Macro1 Macro '
'
Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A3").Select Selection.AutoFilter ActiveSheet.Range("$A$3:$B$11").AutoFilter Field:=2, Criteria1:="=*1’š–Ú*", _ Operator:=xlAnd End Sub
1s‘}“ü‚·‚é‚̂͂Ȃº‚È‚ñ‚Å‚µ‚傤‚©H ‚·‚¢‚Ü‚¹‚ñB‚±‚ê‚Å‚¢‚¢‚̂łµ‚傤‚©EEEH
(‚â‚Á‚½‚Ý‚½‚¢j
„‚±‚ê‚Å‚¢‚¢‚̂łµ‚傤‚©EEEH ˆá‚¤‚ÆŽv‚¢‚Ü‚·‚ªEEEB
„ActiveSheet.Range("$A$3:$B$11").AutoFilter ‚È‚ñ‚Ä‹L˜^‚ɂͬ‚è‚Ü‚¹‚ñ‚æ‚ËH uSelection.AutoFilterv ‚Ì—l‚É‹L˜^‚³‚ê‚邯Žv‚¢‚Ü‚·‚ªBBB ”O‚Ì‚½‚ßAƒGƒNƒZƒ‹‚̃o[ƒWƒ‡ƒ“‚ð‹³‚¦‚ĉº‚³‚¢B
‚»‚ê‚©‚çA1’š–ڈȊO‚ð휂µ‚½‚¢‚È‚ç ’Šo‚µ‚Ä•\ަ‚·‚é‚Ì‚Íu1’š–Ú‚ðŠÜ‚܂Ȃ¢v‚Å‚·‚ËB „‚RDB2ƒZƒ‹‚̃tƒBƒ‹ƒ^‚Åu1’š–Ú‚ðŠÜ‚܂Ȃ¢v‚ð’Šo ~~~~~~~~~~~~~~~
‚»‚µ‚ÄA‚S”ÔˆÈ~‚Ì‹L˜^‚ª–³‚¢—l‚Å‚·‚ªH
„1s‘}“ü‚·‚é‚̂͂Ȃº‚È‚ñ‚Å‚µ‚傤‚©H ‘}“ü‚µ‚½ê‡‚ÆA‚µ‚Ä‚¢‚È‚¢ê‡‚ł͌‹‰Ê‚ªˆá‚¤‚Å‚µ‚傤H
(HANA)
‚·‚¢‚Ü‚¹‚ñB‚¨‚Á‚µ‚á‚邯‚¨‚è‚Å‚µ‚½B ‚ЂƑg–Ú –¼‘O ZŠ a œœ1’š–Ú1”Ô’n b œœ1’š–Ú2”Ô’n c œœ2’š–Ú5”Ô’n d œœ1’š–Ú6”Ô’n e œœ3’š–Ú7”Ô’n f œœ1’š–Ú8”Ô’n g œœ4’š–Ú8”Ô’n ‚Æ‚¢‚¤‚Ì‚ÅŽŽ‚µ‚É‹L˜^‚µ‚Ü‚µ‚½B ƒGƒNƒZƒ‹‚Í‚Q‚O‚O‚V‚Å‚·B Sub Macro4() ' ' Macro4 Macro '
'
Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A3").Select Selection.AutoFilter ActiveSheet.Range("$A$3:$B$10").AutoFilter Field:=2, Criteria1:="<>*1’š–Ú*", _ Operator:=xlAnd Rows("6:10").Select Selection.Delete Shift:=xlUp Range("A15").Select ActiveSheet.Range("$A$3:$B$7").AutoFilter Field:=2 Rows("2:2").Select Selection.Delete Shift:=xlUp End Sub ‚ƂȂè‚Ü‚µ‚½B ‚à‚¤ˆê‰ñ ‚ЂƑg–Ú –¼‘O ZŠ a œœ1’š–Ú1”Ô’n b œœ2’š–Ú2”Ô’n c œœ2’š–Ú3”Ô’n d œœ3’š–Ú4”Ô’n e œœ1’š–Ú5”Ô’n f œœ1’š–Ú6”Ô’n g œœ1’š–Ú7”Ô’n h œœ1’š–Ú8”Ô’n ‚ÅŽŽ‚·‚ÆA ‚ЂƑg–Ú –¼‘O ZŠ a œœ1’š–Ú1”Ô’n b œœ2’š–Ú2”Ô’n e œœ1’š–Ú5”Ô’n f œœ1’š–Ú6”Ô’n g œœ1’š–Ú7”Ô’n h œœ1’š–Ú8”Ô’n ‚ƂȂèA2’š–Ú‚ÌŒ‹‰Ê‚àŽc‚è‚Ü‚µ‚½B
(‚â‚Á‚½‚Ý‚½‚¢j
Šm‚©‚É 2007 ‚Å‚ ‚ê‚Î „ActiveSheet.Range("$A$3:$B$10").AutoFilter ‚Æ‹L˜^‚³‚ê‚Ü‚·‚ËB
‚³‚ÄA‹L˜^‚ÉŠÖ‚µ‚Ă͂â‚Í‚è‚Ü‚¾ˆá‚¤—l‚Å‚·B „„‚TDƒI[ƒgƒtƒBƒ‹ƒ^‚ð‰ðœ ƒI[ƒgƒtƒBƒ‹ƒ^‚ð‰ðœ@‚Å‚·B B—ñ‚Ìu1’¬–Ú‚ðŠÜ‚܂Ȃ¢v‚ðu‘S‚Ä•\ަv‚É‚·‚é‚̂ł͂ȂB
‚»‚±‚ÅA „‚ƂȂèA2’š–Ú‚ÌŒ‹‰Ê‚àŽc‚è‚Ü‚µ‚½B ‚Ì•”•ª‚à‚±‚Ì—l‚ɂȂç‚È‚¢‚悤‚µŽè‡‚ð•Ï‚¦‚Ă݂܂·B
‚à‚¤ˆê“x‹L˜^‚ÉŽæ‚Á‚Ä‚à‚炦‚Ü‚·‚©H ‚PD‚Qs–Ú‚ð‘}“ü ‚QDA3ƒZƒ‹‚ð‘I‚ñ‚ŃI[ƒgƒtƒBƒ‹ƒ^‚ðÝ’è ‚RD4s–Ú‚ð‘I‘ðEEEEEEEEEš ‚SDShift + « ‚𓯎ž‚ɉŸ‚·EEEš ‚TDB3ƒZƒ‹‚̃tƒBƒ‹ƒ^‚Åu1’š–Ú‚ðŠÜ‚܂Ȃ¢v‚ð’Šo ‚UD‰EƒNƒŠƒbƒN¨íœ(D)EEEEEš ‚VDƒI[ƒgƒtƒBƒ‹ƒ^‚ð‰ðœ ‚WD‚Qs–Ú‚ðíœ
š‚Ìs‚ªAŽå‚É•ÏX‚µ‚½•”•ª‚Å‚·B ‚±‚ê‚ÅAƒ‹[ƒvˆ—ˆÈŠO‚̃R[ƒh‚̂قƂñ‚Ç‚ª Š®¬‚µ‚½Ž–‚ɂȂè‚Ü‚·B
(HANA)
‚±‚ê‚Å‚¢‚¢‚̂łµ‚傤‚©B ŽŽ‚µ‚É“¯‚¶‚悤‚É‚â‚Á‚Ă݂½‚çA2’š–Ú‚à휂³‚ê‚Ü‚µ‚½I Sub Macro5() ' ' Macro5 Macro '
'
Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A3").Select Selection.AutoFilter Rows("4:10").Select ActiveSheet.Range("$A$3:$B$10").AutoFilter Field:=2, Criteria1:="<>*1’š–Ú*", _ Operator:=xlAnd Selection.Delete Shift:=xlUp ActiveSheet.Range("$A$3:$B$7").AutoFilter Field:=2 Range("B1:G5").Select Range("B5").Activate Selection.AutoFilter Rows("2:2").Select Selection.Delete Shift:=xlUp End Sub
@‚ƂȂè‚Ü‚µ‚½B
i‚â‚Á‚½‚Ý‚½‚¢j
‚¦‚Á‚ÆBBBς݂܂¹‚ñB Žè‡‚ð‘‚«ŠÔˆá‚¦‚Ü‚µ‚½B @‚SDShift + « ‚𓯎ž‚ɉŸ‚·EEEš
@‚SDCtrl + Shift + «@‚𓯎ž‚ɉŸ‚· ‚Å‚µ‚½B
‚·‚邯 „Rows("4:10").Select ‚Í Rows("4:4").Select Range(Selection, Selection.End(xlDown)).Select ‚ɂȂè‚Ü‚·B
‚»‚ê‚©‚ç „ActiveSheet.Range("$A$3:$B$7").AutoFilter Field:=2 u‘S‚Ä•\ަv‚Æ‚©‚â‚Á‚Ă邿‚¤‚ÉŽv‚¢‚Ü‚·‚ªBBBB ‚±‚ê‚à휂µ‚½‚ç‚·‚®‚ÉuƒtƒBƒ‹ƒ^‰ðœv‚·‚邯
«‚ª‹L˜^‚³‚ê‚Ü‚·B Sub ‹L˜^ƒ}ƒNƒ() Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A3").Select Selection.AutoFilter Rows("4:4").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Range("$A$3:$B$10").AutoFilter Field:=2, Criteria1:="<>*1’š–Ú*", _ Operator:=xlAnd Selection.Delete Shift:=xlUp Selection.AutoFilter Rows("2:2").Select Selection.Delete Shift:=xlUp End Sub
‚±‚±‚©‚çA Selection ‚Á‚Ăǂ±‚ÌŽ–H “™‚É’ˆÓ‚µ‚È‚ª‚ç•s—v•”•ª‚ð휂·‚邯
«ƒXƒŠƒ€‚ɂȂè‚Ü‚·B Sub ƒZƒŒƒNƒg‚µ‚È‚¢() Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A3").AutoFilter Field:=2, Criteria1:="<>*1’š–Ú*", Operator:=xlAnd Range(Rows("4:4"), Rows("4:4").End(xlDown)).Delete Shift:=xlUp Range("A3").AutoFilter Rows("2:2").Delete Shift:=xlUp End Sub
‚±‚̃R[ƒh‚ð‘SƒV[ƒg‚ÅŽÀs‚·‚邿‚¤‚É ƒ‹[ƒvˆ—‚ð‰Á‚¦‚Ü‚·B
«‘SƒV[ƒg‚ðƒ‹[ƒvB Sub yattamitai() Dim sh As Worksheet For Each sh In Worksheets With sh .Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Range("A3").AutoFilter Field:=2, Criteria1:="<>*1’š–Ú*", Operator:=xlAnd .Range(.Rows("4:4"), .Rows("4:4").End(xlDown)).Delete Shift:=xlUp .Range("A3").AutoFilter .Rows("2:2").Delete Shift:=xlUp End With Next sh End Sub
‚±‚Ìó‘Ô‚Å‚ÍAƒ}ƒNƒ‚Ì‹L˜^‚Åo—ˆ‚½ƒR[ƒh‚Ƒ巂 ‚è‚Ü‚¹‚ñB —Ⴆ‚ÎA æ‚ɃtƒBƒ‹ƒ^‚ª‚©‚©‚Á‚Ä‚¢‚½‚炤‚Ü‚“®‚©‚È‚¢‰Â”\«‚ª‚ ‚è‚Ü‚·‚µ @@‘åØ‚Èƒf[ƒ^‚ªA‚·‚ׂÄÁ‚¦‚Ä‚µ‚Ü‚¤‰Â”\«‚à‚ ‚è‚Ü‚·B ‹L˜^‚ð‚Æ‚Á‚½‚̂ƈႤó‘Ô‚Ì‚à‚Ì‚ªo‚Ä‚«‚½‚ç ƒGƒ‰[‚ª”¶‚µ‚½‚èAˆÓ}‚µ‚½“®‚«‚ƈႤ“®‚«‚ð‚·‚é‰Â”\«‚à‚ ‚è‚Ü‚·B
ŽÀ—p‚ðl‚¦‚邯A󋵂ɂæ‚Á‚Ä‚Í‚à‚¤‚µ Šm”Fì‹Æ‚ð“ü‚ê‚é‚Ì‚ª—Ç‚¢‚Ì‚©‚à‚µ‚ê‚Ü‚¹‚ñB
—Ⴆ‚Î @ƒf[ƒ^‚Í‚ ‚é‚©H @Ž–‘O‚ɃI[ƒgƒtƒBƒ‹ƒ^‚ÌÝ’è‚Í‚³‚ê‚Ä‚¢‚È‚¢‚©H “™‚ÌŽ–‘OŠm”FB
(HANA)
„“™‚É’ˆÓ‚µ‚È‚ª‚ç•s—v•”•ª‚ð휂·‚邯 ‚ð‚à‚¤‚µÚ‚µ‚‘‚¢‚Ă݂܂·B
¡Œãƒ}ƒNƒ‚ð쬂·‚éÛ‚àŽQl‚ɂł«‚邯Žv‚¢‚Ü‚·‚̂Š‚Ç‚¤‚¢‚Á‚½‚±‚ƂȂ̂©A—‰ð‚µ‚Ä‚¢‚½‚¾‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B
Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ‚±‚Ì Selection ‚ÍA‚»‚Ìã‚Å Rows("2:2") ‚ð Select ‚µ‚Ä‚¢‚é‚̂ŠRows("2:2") ‚Ì‚±‚Ƃł·B ‚Å‚·‚©‚çA ŸRows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ‚ƈês‚É‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·B
Range("A3").Select Selection.AutoFilter ‚±‚Ì Selection ‚àA‚»‚Ìã‚Å Range("A3") ‚ð Select ‚µ‚Ä‚¢‚é‚̂Š£Range("A3").AutoFilter ‚ɂȂè‚Ü‚·B
Rows("4:4").Select Range(Selection, Selection.End(xlDown)).Select Selection ‚ª“ñ‰ño‚Ä‚«‚Ü‚·‚ªA“ñ‰ñ‚Æ‚à Rows("4:4") ‚ÌŽ–‚Å‚·‚ËB œRange(Rows("4:4"), Rows("4:4").End(xlDown)).Select
ActiveSheet.Range("$A$3:$B$10").AutoFilter Field:=2, Criteria1:="<>*1’š–Ú*", _ ‚±‚Ì•”•ª‚ð ŸRange("A3").AutoFilter Field:=2, Criteria1:="<>*1’š–Ú*", _ ‚É•ÏX‚Å‚«‚鎖‚ÍAˆÈ‘O‚̃o[ƒWƒ‡ƒ“‚ł̋L˜^Œ‹‰Ê‚ð’m‚Á‚Ä‚¢‚È‚¢‚Æ “‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñBBB ‚±‚±‚Å A3 ƒZƒ‹‚ÆŽw’è‚·‚邱‚Æ‚ÅAã‚Ì£‚Ìs‚ª•s—v‚ɂȂè‚Ü‚·B
Selection.Delete Shift:=xlUp ‚±‚±‚ÅAu‘I‘ð”͈͂Ìs‚ðíœv‚·‚é‚킯‚Å‚·‚ª ‚±‚Ì’iŠK‚Å‘I‘ð‚³‚ê‚Ä‚¢‚é”ÍˆÍ‚Í œRange(Rows("4:4"), Rows("4:4").End(xlDown)).Select ‚Å‚·B
@@4s–Ú‚ð‘I‘ð‚µ‚ÄACtrl + Shift + « ‚Ŕ͈͂ð‘I‘ð‚µ‚½‚ ‚Æ‚Í @@i‚èž‚Ýì‹Æ‚ðs‚Á‚½‚¾‚¯‚ÅA‚Ç‚±‚©‚͈̔͂ðSelect‚·‚és“®‚Í @@s‚Á‚Ä‚¢‚Ü‚¹‚ñ‚Ì‚ÅB
‚‚܂èA‚±‚Ì Selection ‚Æ‚¢‚¤‚Ì‚ª œRange(Rows("4:4"), Rows("4:4").End(xlDown)) ‚Å‚·‚Ì‚ÅAæ‚ÌŠY“–•”•ª‚Í@‚±‚̈ʒu‚܂ňړ®‚³‚¹‚邱‚Æ‚ª‚Å‚«‚Ü‚·B @@i‹L˜^‚ðŽæ‚é’iŠK‚Å‚ÍA‘OŒã‚³‚¹‚邱‚Æ‚ª‚Å‚«‚È‚¢‚̂ł·‚ªBBBBj œ‚Ìs‚ª•s—v‚ɂȂÁ‚Ä ŸRange(Rows("4:4"), Rows("4:4").End(xlDown)).Delete Shift:=xlUp
‚ ‚Ƃ̓ñs ŸRange("A3").AutoFilter ŸRows("2:2").Delete Shift:=xlUp ‚ÍA‚±‚ê‚܂łÌÈ—ª•û–@‚ƂقƂñ‚Ç“¯‚¶‚Å‚·B
󋵂ɂæ‚Á‚Ä‚Í ‹L˜^Žè‡‚É‹C‚ð‚‚¯‚Ä‹L˜^‚ðŽæ‚Á‚Ä ‚±‚ñ‚ÈŠ´‚¶‚Å SelectEEESelection ‚ð‚È‚‚·‚¾‚¯‚Å‚à ‚©‚È‚è‚̃R[ƒh‚Ío—ˆ‚é—l‚É‚È‚é‚ÆŽv‚¢‚Ü‚·B
ƒ‹[ƒvˆ—‚͂ǂ¤‚µ‚Ä‚à‹L˜^‚ł͂ł«‚Ü‚¹‚ñ‚µ ƒGƒ‰[ˆ—‚à‹L˜^‚ł͓ü‚ê‚ç‚ê‚Ü‚¹‚ñ‚̂Š‚»‚Ì‚ ‚½‚è‚͕ʓr’ljÁ‚·‚邱‚ƂɂȂè‚Ü‚·‚ªB
‚Ü‚½uEnd(xlDown)v‚Å‚ÍAŠÔ‚É‹ós‚ª‚ ‚Á‚½ê‡ ‚»‚±‚܂łµ‚©ˆÚ“®‚µ‚Ü‚¹‚ñ‚Ì‚ÅA‹C‚ð•t‚¯‚Ä‚‚¾‚³‚¢B
‚»‚ê‚©‚çA‰½“x‚à‘‚«‚Ü‚·‚ª ‚ ‚‚܂łà@‹L˜^‚ðŠî‚É‚µ‚½ƒR[ƒh‚Å‚ ‚邱‚Æ‚ð –Y‚ꂸ‚ÉŽg—p‚µ‚Ä‚‚¾‚³‚¢B ‹L˜^‚ð‚Æ‚Á‚½‚̂ƈႤ󋵂̃f[ƒ^‚âŠÂ‹«‚Å‚Í Šú‘Ò‚·‚錋‰Ê‚𓾂ç‚ê‚È‚¢ê‡‚ª‚ ‚è‚Ü‚·‚µ ‘娂Èi•K—v‚Èjƒf[ƒ^‚ªÁ‚¦‚Ä‚µ‚Ü‚¤‰Â”\«‚à‚ ‚è‚Ü‚·B
(HANA)
‚²’š”J‚É‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B ˆê“x‹L˜^‚µ‚Ä‚©‚ç‚¢‚ë‚¢‚ë‚Å‚«‚é‚̂ł·‚ËEEEB
“ª‚ªŒÅ‚¢‚̂łȂ©‚È‚©‚·‚ñ‚Ȃ藉ð‚Å‚«‚é‚©‚í‚©‚è‚Ü‚¹‚ñ‚µA‚¨‚Á‚µ‚á‚é’Ê‚è‰ïŽÐ‚Å‚¤‚Ü‚‚¢‚‚©‚͂킩‚è‚Ü‚¹‚ñ‚ªAHANA—l‚Ì‹³‚¦‚Ä‚‚¾‚³‚Á‚½‚±‚Æ‚ðƒvƒŠƒ“ƒg‚µ‚ÄŠæ’£‚Á‚Ă݂܂·B ‰½‰ñ‚à‚²–À˜f‚¨‚©‚¯‚µ‚ÄA‚·‚¢‚Ü‚¹‚ñB ‚¨•t‚«‡‚¢‚‚¾‚³‚èA‚Ù‚ñ‚Ƃɂ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½II
(‚â‚Á‚½‚Ý‚½‚¢j
[ ˆê——(ÅVXV‡) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.