请大佬帮忙看下这段VBA代码执行的时候问题出在哪

wenbai0626 · 发表于 2024-1-25 19:44

通过这段代码想要实现的是，运行的时候，周一到周日每个sheet里面展示的是从sheet1里面取的最近二十周的数据，比如说周一里面就是上周一到之前共二十周的周一数据，以此类推，但是只要一运行就清空了，请教下问题到底出在哪里呢

shiruiqiang · 发表于 2024-1-25 19:59

shiruiqiang · 发表于 2024-1-25 20:02

本帖最后由 shiruiqiang 于 2024-1-25 20:07 编辑

ykcbf1100 · 发表于 2024-1-25 20:18

本帖最后由 ykcbf1100 于 2024-1-25 20:28 编辑

shiruiqiang 发表于 2024-1-25 19:59

略过。。。。。

shiruiqiang · 发表于 2024-1-25 20:27

看了一下，写入数组时arr(1,1)是空的。原来的附件是从第二行开始

wenbai0626 · 发表于 2024-1-25 23:42

shiruiqiang 发表于 2024-1-25 20:27
看了一下，写入数组时arr(1,1)是空的。原来的附件是从第二行开始

大佬，麻烦你了，你看我按照您说的改了，结果运行又空白了。。。啥原因呢，这个表

wenbai0626 · 发表于 2024-1-25 23:42

按照楼上大佬的改了，但是这组数据进去又是空白了，啥原因呢各位

维叶 · 发表于 2024-1-26 09:39

看了下，你不停的更改数据表结构，代码就要稍微修改，最好还是了解下基本的VBA知识吧

以下代码仅适用你这个表

Sub rxtj()
Dim arr
Dim sht As Worksheet
For Each sht In Sheets
If InStr(sht.Name, "周") Then
sht.[b2:zz31].Clear
End If
Next
rq = DateAdd("d", -(Weekday(Date) - 2), Date)
arr = Sheets("日度").[a2].CurrentRegion
For y = 2 To UBound(arr, 2)
For i = 0 To 140
If arr(1, y) = DateAdd("ww", -20, rq) + i Then
icol = Sheets("周" & Choose(Weekday(DateAdd("ww", -20, rq) + i), "日", "一", "二", "三", "四", "五", "六")).Range("zz2").End(xlToLeft).Column + 1
Sheets("日度").Cells(2, y).Resize(30, 1).Copy Sheets("周" & Choose(Weekday(DateAdd("ww", -20, rq) + i), "日", "一", "二", "三", "四", "五", "六")).Cells(2, icol)
End If
Next
Next
MsgBox "ok!"
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 请大佬帮忙看下这段VBA代码执行的时候问题出在哪