作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/03/29 15:50:46
英语翻译
b = ActiveSheet.UsedRange.Rows.Count
c = ActiveSheet.UsedRange.Columns.Count
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
英语翻译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