VBA多表根据条件自动修改单元格值

hdbk

目的：
在一个工作薄中所有表格中（可能有几十张表），如果表名中最右边的三个字符为输入的月份，那么这些中A列的日期中的月份数字要相应改成输入的月份。每张表A列数据长度不一样。 现在我通过以下代码可以实现功能（附件中方法1），但是如果需要处理的表数量多运行速度很慢，希望用数组来写代码，请问要怎么写（附件中方法2 提示下标越界，不知道哪里错了要改）？
Sub changemonth()
Dim sht As Worksheet, k%, newn As String
mytime = Timer
newn = InputBox("请输入月份") '为了演示此处输入月份 Jul
For Each sht In ThisWorkbook.Sheets
If Right(sht.Name, 3) = newn Then
  For k = 3 To sht.Range("A260").End(xlUp).Row
  If Left(sht.Cells(k, 1), 4) = 2018 Then sht.Cells(k, 1) = Year(Now()) & "/" & Month(newn & "-1") & "/" & Right(sht.Cells(k, 1), Len(sht.Cells(k, 1)) - 7)
  Next k
End If
Next
MsgBox ("处理的时间为") & Timer - mytime & "ﾃ・
End Sub

修改月份1.zip (23.71 KB, 下载次数: 3)

2018-6-19 12:51 上传

点击文件名下载附件

liulang0808

1. Sub changemonth()
   
2. Dim sht As Worksheet, k%, newn As String
   
3. mytime = Timer
   
4. newn = InputBox("请输入月份") '此处为了演示输入月份为Jul
   
5. For Each sht In ThisWorkbook.Sheets
   
6. If Right(sht.Name, 3) = newn Then
   
7.     Set Rng = Application.Intersect(sht.UsedRange, sht.Columns(1))
   
8.     If Not Rng Is Nothing Then
   
9.         arr = Rng.Value
   
10.         For k = 3 To UBound(arr)
    
11.             If Left(arr(k, 1), 4) = 2018 Then arr(k, 1) = Year(Now()) & "/" & Month(newn & "-1") & "/" & Right(arr(k, 1), Len(arr(k, 1)) - 7)
    
12.         Next k
    
13.         Rng.Value = arr
    
14.     End If
    
15. End If
    
16. Next
    
17. MsgBox ("使用时间为：") & Timer - mytime & "秒"
    
18. End Sub

复制代码

liulang0808

new那个是新改的。。。

hdbk

liulang0808 发表于 2018-6-19 13:18
new那个是新改的。。。

多谢！ 请问下面这句代码的思路是什么呢？为什么要用多表中重叠部分单元格呢？希望不吝赐教！
Set Rng = Application.Intersect(sht.UsedRange, sht.Columns(1))