質問: fromRange.Cells(i, j).Characters(k, k).Font.ColorIndex Next Next Next End Sub
回答: 一文字ずつ処理していくコードに見えますので期待する動作は以下ではないでしょうか。 誤: toRange.Cells(i, j).Characters(k, k).Font.ColorIndex = fromRange.Cells(i, j).Characters(k, k).Font.ColorIndex 正: toRange.Cells(i, j).Characters(k, 1).Font.ColorIndex = fromRange.Cells(i, j).Characters(k, 1).Font.ColorIndex