英语翻译b = ActiveSheet.UsedRange.Rows.Countc = ActiveSheet.Used

上面的代码说明如下：获取当前激活表已使用区域的最大行号b = ActiveSheet。UsedRange。Rows。Count获取当前激活表已使用区域的最大列号c = ActiveSheet。UsedRange。Columns。Count        以下代码,从14行第1列开始,到最大行最大列结束    For i = 14 To b      For j = 1 To c                  获取每个单元格的值         mystr = ActiveSheet。Cells(i, j)。Value                  将值删除空格         mystr = Trim(mystr)                  然后,再写回原来的单元格位置         ActiveSheet。Cells(i, j)。Value = mystr               Next    Next