[已解决]有关代码的通用性修改。

left369

有关代码的通用性修改。

  With Worksheets("sheet1")
    With .UsedRange.Font
      .ColorIndex = 0
      .Bold = False
    End With
    For i = 1 To Len(.Range("a100"))
      brr(i) = Mid(.Range("a100"), i, 1)
    Next
    r = .Cells(.Rows.Count, 16).End(xlUp).Row
    c = .Cells(7, .Columns.Count).End(xlToLeft).Column
    Arr = .Range("h7").Resize(r - 6, c - 14)
  End With

这一段代码只能在sheet1中适用，如何修改让它在任何一个sheet都能适用呢？
每次如果在其它sheet使用时，要到代码里修改sheet1很麻烦，能否改成通用性的。

最佳答案

月排行榜 / 总排行榜

冥王

2014-4-11 19:10

第1行的With Worksheets("sheet1") 修改成With ActiveSheet就ok了

跳转到最佳答案楼层

dsmch

1. With ActiveSheet.UsedRange.Font
   
2.       .ColorIndex = 0
   
3.       .Bold = False
   
4.     End With
   
5.     For i = 1 To Len(Range("a100"))
   
6.       brr(i) = Mid(Range("a100"), i, 1)
   
7.     Next
   
8.     r = Cells(Rows.Count, 16).End(xlUp).Row
   
9.     c = Cells(7, Columns.Count).End(xlToLeft).Column
   
10.     arr = Range("h7").Resize(r - 6, c - 14)

复制代码

冥王

第1行的With Worksheets("sheet1") 修改成With ActiveSheet就ok了

left369

哦刚刚看到还一位老师解答了。不好意思