[[20090913164525]]@wƒI[ƒgƒtƒBƒ‹ƒ^xi‚â‚Á‚½‚Ý‚½‚¢j@ƒy[ƒW‚̍Ōã‚É”ò‚Ô

[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]

@

wƒI[ƒgƒtƒBƒ‹ƒ^xi‚â‚Á‚½‚Ý‚½‚¢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

@


 FX‚â‚è•û‚Í‚ ‚è‚Ü‚·‚ªAƒI[ƒgƒtƒBƒ‹ƒ^‚âƒtƒBƒ‹ƒ^ƒIƒvƒVƒ‡ƒ“‚ȂǁEEE
 Ž„‚̏ꍇ‚Í•’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

 ‚¢‚ë‚¢‚ë‚ ‚é‚ñ‚Å‚·‚ˁEEB‰œ‚ª[‚¢EEB

 (‚â‚Á‚½‚Ý‚½‚¢j

 ‚±‚ñ‚΂ñ‚íB
 ‚¤‚Ü‚­‚¢‚Á‚½‚©‚ÆŽv‚Á‚½‚ç‚‚܂«‚Ü‚µ‚½EEB
     1@@2@
@‚ЂƑg–Ú
@–¼‘O@ZŠ
 1  a  œœ’¬1’š–Ú
 2  b@œœ’¬2’š–Ú
 3  c@œœ’¬1’š–Ú
 4  d@œœ’¬3’š–Ú
 .  .@@@D
 .  .@@@D
 ‚Æ‚¢‚Á‚½•—‚É3s–Ú‚©‚çŽn‚Ü‚é‚̂ŁA
 cell(3,1)
 ‚Æ‚µ‚Ü‚µ‚½B
 ‚µ‚©‚µA‚â‚Í‚è‚Ù‚µ‚¢ƒf[ƒ^ˆÈŠO‚͍폜‚µ‚½‚¢‚ÆŽv‚¢Ahidden‚ðclear‚É‚µ‚½‚ç1s–Ú2s–Ú‚àÁ‚¦‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½B
 clear‚ðŽg‚킸A1s–Ú2s–Ú‚ðŽc‚µ‚‚As‚ðíœ‚Å‚«‚é•û–@‚Í‚ ‚é‚Å‚µ‚傤‚©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
 ‰ïŽÐ‚Å‚½‚ß‚·‚ƁA1s1—ñ–ڂ̃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‚±‚ç‚È‚¢‚̂́AhThisWorkbook.Worksheetsh‚Æ‚È‚Á‚Ä‚¢‚é‚©‚ç‚Å‚µ‚傤‚©H

 i‚â‚Á‚½‚Ý‚½‚¢j

 „ŽŽ‚µ‚ÉŽ©•ª‚Ń}ƒNƒ‚ð‹L˜^‚µ‚čì‚Á‚½‚ñ‚Å‚·‚ª
 ‚Á‚ÄŽ–‚Å‚µ‚½‚ªA‚Ç‚¤Œ¾‚Á‚½ƒR[ƒh‚ðì‚Á‚½‚Ì‚Å‚·‚©H

 (HANA)

 hŽŽ‚µ‚Ɂ`h‚̉º‚è‚ÍŠ¨ˆá‚¢‚Å‚µ‚½B‚à‚Æ‚à‚Ɖ½‚à“ü‚Á‚Ä‚¢‚Ü‚¹‚ñ‚Å‚µ‚½B
 Ž©•ª‚ōì‚Á‚½‚Ì‚Í2”Ԗڂɏ‘‚¢‚½’Ê‚è‚ŁA¡‚Ímomo—l‚É‹³‚¦‚Ä‚¢‚½‚¾‚¢‚½ƒR[ƒh‚ð“ü—Í‚µ‚Ü‚µ‚½B
 ‚Ç‚¤‚µ‚Ä‚àA–1’š–ځ–‚Æ‚µ‚Ä‚¢‚é‚̂ɁAˆê”ԍŏ‰‚É‹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 
 ‚Å‚·‚©‚ç‚ˁBBB

 „hŽŽ‚µ‚Ɂ`h‚̉º‚è‚ÍŠ¨ˆá‚¢‚Å‚µ‚½B
 ‚Á‚ÄŽ–‚́A‚²Ž©g‚ōì‚Á‚Ä‹‚ç‚ê‚È‚¢@‚Á‚ÄŽ–‚Å‚·‚©H

 ‚Ü‚¸‚̓}ƒNƒ‚Ì‹L˜^‚ð‚â‚Á‚Ä‚Ý‚ç‚ê‚ẮH
 Šî–{“I‚ɂ́«‚̎菇‚ŏo—ˆ‚é‚ÆŽv‚¢‚Ü‚·B
 ‚PD‚Qs–Ú‚ð‘}“ü
 ‚QDA2ƒZƒ‹‚ð‘I‚ñ‚ŃI[ƒgƒtƒBƒ‹ƒ^‚ðÝ’è
 ‚RDB2ƒZƒ‹‚̃tƒBƒ‹ƒ^‚Łu1’š–Ú‚ðŠÜ‚Ü‚È‚¢v‚𒊏o
 ‚SD”͈͂ð‘I‘ð‚µ‚Äsíœ
 ‚TDƒI[ƒgƒtƒBƒ‹ƒ^‚ð‰ðœ
 ‚UD‚Qs–Ú‚ðíœ

 ×‚©‚¢C³‚⃋[ƒvˆ—‚̒ljÁ‚È‚Ç
 FX’ljÁ‚ª•K—v‚Å‚·‚ªB

 o—ˆ‚½ƒR[ƒh‚ð‚±‚¿‚ç‚ɍڂ¹‚Ă݂ĉº‚³‚¢B
 ‚Ü‚½AƒR[ƒhŽÀs‘O‚ɃI[ƒgƒtƒBƒ‹ƒ^‚ªÝ’肳‚ê‚Ä‚¢‚é‰Â”\«‚ª
 —L‚é‚©‚Ç‚¤‚©‚à‹³‚¦‚ĉº‚³‚¢B

 (HANA)

 ‚¨‚Á‚ƁBBBB
 ‚P‚̎菇‚Å2s–Ú‚ð‘}“ü‚µ‚½‚Ì‚Å

 ‚QDA2ƒZƒ‹‚ð‘I‚ñ‚ŃI[ƒgƒtƒBƒ‹ƒ^‚ðÝ’è
 @@«
 @@A3ƒZƒ‹

 ‚RDB2ƒZƒ‹‚̃tƒBƒ‹ƒ^‚Łu1’š–Ú‚ðŠÜ‚Ü‚È‚¢v‚𒊏o
 @@«
 @@B3ƒZƒ‹

 ‚Å‚·‚ˁB

 Ž¸—炵‚Ü‚µ‚½B

 (HANA)


 ‚Í‚¶‚ß‚ÍŽ©•ª‚ŃI[ƒgƒtƒBƒ‹ƒ^‚̃}ƒNƒ‚ð‹L˜^‚µ‚Ä‚â‚Á‚½‚ñ‚Å‚·A‚·‚ׂẴV[ƒg‚É‚»‚̏ˆ—‚ð‚ǂ̂悤‚É‚·‚é‚©‚í‚©‚ç‚È‚­‚āEEEB
 vba‚Ì–{‚ðŒ©‚ÄAu‚·‚ׂẴV[ƒg‚É“¯‚¶ˆ—‚ð‚·‚év‚Æ‚¢‚¤ƒR[ƒh‚ð–{‚ð‚݂ď‘‚«ž‚ñ‚¾‚Ì‚Å‚·‚ª‚¤‚Ü‚­‚¢‚©‚È‚­‚āEEEB
 Sub ()
 Dim sh As Worksheet

 For Each sh In Worksheets
 ‚±‚±‚ɃI[ƒgƒtƒBƒ‹ƒ^‚Ì“à—e

 Next sh

 End Sub

 ‚Æ‚¢‚Á‚½‚±‚Æ‚ð‚µ‚½‚Ì‚Å‚·‚ªEEEB

 ƒI[ƒgƒtƒBƒ‹ƒ^Ž©‘Ì‚ªŽ©•ª‚Å‹L˜^‚³‚¹‚½‚à‚Ì‚¾‚Á‚½‚Ì‚Å‚¤‚Ü‚­‚¢‚­‚Í‚¸‚Í‚È‚­iƒV[ƒg‚²‚Ƃɍ폜‚·‚és‚ªˆá‚¤‚½‚߁jEEƒI[ƒgƒtƒBƒ‹ƒ^‚̃}ƒNƒƒR[ƒh‚ð–{‚ðŒ©‚Ä‚â‚Á‚Ä‚ÍŒ©‚½‚Ì‚Å‚·‚ªAƒGƒ‰[‚É‚È‚è‚Ü‚µ‚½B–{‚͉ïŽÐ‚É‚ ‚é‚à‚̂ō¡A‚ǂ̂悤‚ȃR[ƒh‚Å‚¾‚ß‚È‚Ì‚©‹L“ü‚Å‚«‚È‚¢‚Ì‚Å‚·‚ªEEEB
 ‚È‚ñ‚¹A’´‰SŽÒ‚È‚Ì‚Å‚¨’p‚¸‚©‚µ‚¢ŒÀ‚è‚Å‚·B

 (‚â‚Á‚½‚Ý‚½‚¢j

 ƒ}ƒNƒ‚Ì‹L˜^‚¾‚¯‚ŏo—ˆ‚鎖‚ÍŒÀ‚ç‚ê‚Ä‚«‚Ü‚·B
 ‚µ‚©‚µAo—ˆ‚½ƒR[ƒh‚́@ƒ}ƒNƒ‚ðì‚éÛ‚Ì
 ŽQl‚É‚·‚邱‚Æ‚ªo—ˆ‚Ü‚·B

 Ž„‚Í
 „Šî–{“I‚ɂ́«‚̎菇‚ŏo—ˆ‚é‚ÆŽv‚¢‚Ü‚·B
 „o—ˆ‚½ƒR[ƒh‚ð‚±‚¿‚ç‚ɍڂ¹‚Ă݂ĉº‚³‚¢B
 ‚Ə‘‚¢‚Ä‚¢‚Ü‚·B

 (HANA)

 ‰ïŽÐ‚̃f[ƒ^‚̂悤‚È‚à‚Ì‚Å‚µ‚Ä‚Ý‚Ü‚µ‚½‚ªEEEB
 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

 1s‘}“ü‚·‚é‚Ì‚Í‚È‚º‚È‚ñ‚Å‚µ‚傤‚©H
 ‚·‚¢‚Ü‚¹‚ñB‚±‚ê‚Å‚¢‚¢‚Ì‚Å‚µ‚傤‚©EEEH

 (‚â‚Á‚½‚Ý‚½‚¢j

 „‚±‚ê‚Å‚¢‚¢‚Ì‚Å‚µ‚傤‚©EEEH
 ˆá‚¤‚ÆŽv‚¢‚Ü‚·‚ªEEEB

 „ActiveSheet.Range("$A$3:$B$11").AutoFilter
 ‚È‚ñ‚Ä‹L˜^‚ɂ͐¬‚è‚Ü‚¹‚ñ‚æ‚ˁH
 uSelection.AutoFilterv
 ‚Ì—l‚É‹L˜^‚³‚ê‚é‚ÆŽv‚¢‚Ü‚·‚ªBBB
 ”O‚Ì‚½‚߁AƒGƒNƒZƒ‹‚̃o[ƒWƒ‡ƒ“‚ð‹³‚¦‚ĉº‚³‚¢B

 ‚»‚ê‚©‚çA1’š–ڈȊO‚ðíœ‚µ‚½‚¢‚È‚ç
 ’Šo‚µ‚Ä•\Ž¦‚·‚é‚̂́u1’š–Ú‚ðŠÜ‚Ü‚È‚¢v‚Å‚·‚ˁB
 „‚RDB2ƒZƒ‹‚̃tƒBƒ‹ƒ^‚Łu1’š–Ú‚ðŠÜ‚Ü‚È‚¢v‚𒊏o
                           ~~~~~~~~~~~~~~~

 ‚»‚µ‚āA‚S”Ԉȍ~‚Ì‹L˜^‚ª–³‚¢—l‚Å‚·‚ªH

 „1s‘}“ü‚·‚é‚Ì‚Í‚È‚º‚È‚ñ‚Å‚µ‚傤‚©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
 „„‚TDƒ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
 ‚PD‚Qs–Ú‚ð‘}“ü
 ‚QDA3ƒZƒ‹‚ð‘I‚ñ‚ŃI[ƒgƒtƒBƒ‹ƒ^‚ðÝ’è
 ‚RD4s–Ú‚ð‘I‘ðEEEEEEEEEš
 ‚SDShift + « ‚𓯎ž‚ɉŸ‚·EEEš
 ‚TDB3ƒZƒ‹‚̃tƒBƒ‹ƒ^‚Łu1’š–Ú‚ðŠÜ‚Ü‚È‚¢v‚𒊏o
 ‚UD‰EƒNƒŠƒbƒN¨íœ(D)EEEEEš
 ‚VDƒI[ƒgƒtƒBƒ‹ƒ^‚ð‰ðœ
 ‚WD‚Qs–Ú‚ðíœ

 š‚̍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

 ‚¦‚Á‚ƁBBBÏ‚Ý‚Ü‚¹‚ñB
 Žè‡‚ð‘‚«ŠÔˆá‚¦‚Ü‚µ‚½B
 @‚SDShift + « ‚𓯎ž‚ɉŸ‚·EEEš

 @‚SDCtrl + 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‚¢‚Ü‚·‚ªBBBB
 ‚±‚ê‚àíœ‚µ‚½‚ç‚·‚®‚Ɂ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‚ðƒ‹[ƒvB
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”FB

 (HANA)

 „“™‚É’ˆÓ‚µ‚È‚ª‚ç•s—v•”•ª‚ðíœ‚·‚é‚Æ
 ‚ð‚à‚¤­‚µÚ‚µ‚­‘‚¢‚Ä‚Ý‚Ü‚·B

 ¡Œãƒ}ƒNƒ‚ðì¬‚·‚éÛ‚àŽQl‚É‚Å‚«‚é‚ÆŽ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‚Á‚Ä‚¢‚È‚¢‚Æ
 “‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñBBB
 ‚±‚±‚Å A3 ƒZƒ‹‚ÆŽw’è‚·‚邱‚ƂŁAã‚́£‚̍s‚ª•s—v‚É‚È‚è‚Ü‚·B

     Selection.Delete Shift:=xlUp
 ‚±‚±‚ŁAu‘I‘ð”͈͂̍s‚ðíœv‚·‚é‚킯‚Å‚·‚ª
 ‚±‚Ì’iŠK‚Å‘I‘ð‚³‚ê‚Ä‚¢‚é”͈͂Í
    œRange(Rows("4:4"), Rows("4:4").End(xlDown)).Select
 ‚Å‚·B

 @@4s–Ú‚ð‘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Œã‚³‚¹‚邱‚Æ‚ª‚Å‚«‚È‚¢‚Ì‚Å‚·‚ªBBBBj
 œ‚̍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˜^‚ðŽæ‚Á‚Ä
 ‚±‚ñ‚ÈŠ´‚¶‚Å SelectEEESelection ‚ð‚È‚­‚·‚¾‚¯‚Å‚à
 ‚©‚È‚è‚̃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˜^‚µ‚Ä‚©‚ç‚¢‚ë‚¢‚ë‚Å‚«‚é‚Ì‚Å‚·‚ˁEEEB

 “ª‚ªŒÅ‚¢‚Ì‚Å‚È‚©‚È‚©‚·‚ñ‚Ȃ藝‰ð‚Å‚«‚é‚©‚í‚©‚è‚Ü‚¹‚ñ‚µA‚¨‚Á‚µ‚á‚é’Ê‚è‰ïŽÐ‚Å‚¤‚Ü‚­‚¢‚­‚©‚Í‚í‚©‚è‚Ü‚¹‚ñ‚ªAHANA—l‚Ì‹³‚¦‚Ä‚­‚¾‚³‚Á‚½‚±‚Æ‚ðƒvƒŠƒ“ƒg‚µ‚ÄŠæ’£‚Á‚Ä‚Ý‚Ü‚·B
 ‰½‰ñ‚à‚²–À˜f‚¨‚©‚¯‚µ‚āA‚·‚¢‚Ü‚¹‚ñB
 ‚¨•t‚«‡‚¢‚­‚¾‚³‚èA‚Ù‚ñ‚Æ‚É‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½II

 (‚â‚Á‚½‚Ý‚½‚¢j

ƒRƒƒ“ƒg•ÔMF

[ ˆê——(ÅVXV‡) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.