質問: sheets("個人票裏").range("個人番号イ") + 1 loop end sub よろしくお願いします。
回答: 1.空きセルを使う場合 仮にセル番号を"a1"とします、 念のため書式設定で「文字列」にしておきます セルa1 に'-5-12-25- と入れます ------------------------ sub 票印刷() sheets("個人票").range("個人番号") = sheets("個人票").range("自") sheets("個人票裏").range("個人番号イ") = sheets("個人票裏").range("自イ") hazu = range("a1").value '<-「a1」は実際の空きセルに変えてください do while sheets("個人票").range("個人番号") <= sheets("個人票").range("至") if instr(1, hazu, "-" & sheets("個人票").range("個人番号") & "-") = 0 then sheets(array("個人票", "個人票裏")).printout endif sheets("個人票").range("個人番号") = sheets("個人票").range("個人番号") + 1 sheets("個人票裏").range("個人番号イ") = sheets("個人票裏").range("個人番号イ") + 1 loop end sub ----------------------- 2.空きセルを使わない場合 ----------------------- sub 票印刷() sheets("個人票").range("個人番号") = sheets("個人票").range("自") sheets("個人票裏").range("個人番号イ") = sheets("個人票裏").range("自イ") hazu = "-5-12-25-" '<- この場合は変更のつど書き直さなければなりません do while sheets("個人票").range("個人番号") <= sheets("個人票").range("至") if instr(1, hazu, "-" & sheets("個人票").range("個人番号") & "-") = 0 then sheets(array("個人票", "個人票裏")).printout endif sheets("個人票").range("個人番号") = sheets("個人票").range("個人番号") + 1 sheets("個人票裏").range("個人番号イ") = sheets("個人票裏").range("個人番号イ") + 1 loop end sub ----------------------- という事です instr関数について instr(開始位置,文字a,文字b) で、文字aの中に文字bが有るかどうかを検索します 有った場合は、何文字目に有ったかを数値で返します 例えば、 開始位置=1、文字a="-5-12-25-"、文字b="-12-"だと 「3」が返ってきます 無かった場合は、「0」(ゼロ)が返ってきます このマクロでは、番号の前後に「-」を付ける事によって「1」と「11」を区別できるようにしています