Sub Colorsum()Dim i, j, k, c As LongSet mysheet1 = ThisWorkbook.WorksheetsFor i = 3 To 26'行 （需要计算的标黄的有哪些行）k = 0For j = 1 To 190 '列 （需要计算的标黄的有哪些列）c = Cells(i, j).Interior.ColorIf c <> 16777215 Th

根据实际情况，如此题库的特征是有横向的答案ABCD也有竖的。所以解决办法：第一步：横的选项全部变为竖的选项D、替换为 ^pD、就会在D选项前换行****第二步：剔除多余的空行如下图替换操作**第三步Python处理：也可以别的方式...