以下のことができるVBAを書いて。
セル内の取り消し線が引かれていない文字のみ変数に格納する。
その時、各文字の色を区別する。
変数CurentCに、文字色がvbRedならvbRed、vbWhiteならvbWhite、それ以外ならvbBlackを格納する。
1次配列myString、myLengs、CurentCを使用する。
同じ要素番号のmyString、myLengs、CurentCは同じ文字列に関係するデータである。
CurentCの値は1次配列myColorに代入し、CurentCの値が変わったときに次の要素にCurentCの値を1次配列myColorに代入する。
CurentCの値が変わるまでの文字列を1次配列myStringに代入する。1次配列myStringも色が変わったら次の要素に文字列を代入していく。
CurentCの値が変わるまでの文字列長を1次配列myLengsに足していく。1次配列myLengsも色が変わったら次の要素に文字列長を代入する。
1セル内の処理が終わったときに、取り消し線以外の文字と文字色が元のまま入っている状態にしたい。