【PC操作とデータ整理】LibreOffice CalcやMicrosoft Excelで［ISBN-13］→［ISBN-10］を一括して行なう
こちらのサイトから拝借いたしました｜ありがとうございます
■ISBNを13桁から10桁にするEXCEL計算式: 備忘録
（1）D列に［ハイフン（-）］の入った［ISBN-13］が入力されていると仮定します
（2）G列〔2行目〕に以下の文字列をコピー＆ペーストする｜この列が［ISBN-13］からハイフン（-）を取り除いた列になります
=substitute(D2,"-","")
（3）H列〔2行目〕に以下の文字列をコピー＆ペーストする｜この列が［ISBN-10］の列になります
=IF(11-MOD(MID(G2,4,1)*10+MID(G2,5,1)*9+MID(G2,6,1)*8+MID(G2,7,1)*7+MID(G2,8,1)*6+MID(G2,9,1)*5+MID(G2,10,1)*4+MID(G2,11,1)*3+MID(G2,12,1)*2,11)=11,CONCATENATE(MID(G2,4,9),"0"),IF(11-MOD(MID(G2,4,1)*10+MID(G2,5,1)*9+MID(G2,6,1)*8+MID(G2,7,1)*7+MID(G2,8,1)*6+MID(G2,9,1)*5+MID(G2,10,1)*4+MID(G2,11,1)*3+MID(G2,12,1)*2,11)=10,CONCATENATE(MID(G2,4,9),"X"),CONCATENATE(MID(G2,4,9),11-MOD(MID(G2,4,1)*10+MID(G2,5,1)*9+MID(G2,6,1)*8+MID(G2,7,1)*7+MID(G2,8,1)*6+MID(G2,9,1)*5+MID(G2,10,1)*4+MID(G2,11,1)*3+MID(G2,12,1)*2,11))))
（4）適宜、行をコピーします
表計算ソフトは、行をコピーすると、セルのアドレスも連番式に自動的にズレてくれます。