Excel代码问题，非常感谢！

LSYYLW · 发表于 2024-9-19 18:03

2024-9-19.zip (17.21 KB, 下载次数: 5)

quqiyuan · 发表于 2024-9-19 20:03

参与一下，仅供参考。。。

quqiyuan · 发表于 2024-9-19 20:04

代码如下。。。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$BY$1" Then Exit Sub
Application.ScreenUpdating = False
x = 1
For i = 4 To 64
      x = x + 1
      arr = [BG36:BX36].Offset(291 - 36 + 1 - 4 * i).Resize(4 * i)
      n = 0
      ReDim brr(1 To 4, 1 To UBound(arr, 2))
      For j = 1 To 4 * i Step i
         n = n + 1
         For k = 1 To UBound(arr, 2)
            brr(n, k) = arr(j, k)
         Next
      Next
      [bg295].Offset((x - 2) * 7).Resize(4, UBound(arr, 2)) = brr
      i = 2 ^ (x + 1) - 1
Next
Beep
Application.ScreenUpdating = True
End Sub

LSYYLW · 发表于 2024-9-19 22:07

quqiyuan 发表于 2024-9-19 20:04
代码如下。。。

Private Sub Worksheet_Change(ByVal Target As Range)

万分的感谢老师，代码非常好用。

LSYYLW · 发表于 2024-9-20 21:06

本帖最后由 LSYYLW 于 2024-9-20 22:14 编辑

2024-9-21-.zip (22.05 KB, 下载次数: 2)

LSYYLW · 发表于 2024-9-20 21:09

本帖最后由 LSYYLW 于 2024-9-20 22:15 编辑

quqiyuan 发表于 2024-9-19 20:04
代码如下。。。

Private Sub Worksheet_Change(ByVal Target As Range)

老师您好：又来麻烦您了，您有时间帮我看一下5楼附件里有颜色单元格里的文字，帮我解决一下，拜托了！

quqiyuan · 发表于 2024-9-20 22:24

LSYYLW 发表于 2024-9-20 21:09
老师您好：又来麻烦您了，您有时间帮我看一下5楼附件里有颜色单元格里的文字，帮我解决一下，拜托了！

可以了，稍作修改即可，仅供参考。。。

quqiyuan · 发表于 2024-9-20 22:25

代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$BY$1" Then Exit Sub
Application.ScreenUpdating = False
x = 1
For i = 4 To 64
      x = x + 1
      arr = [BG41:BX41].Offset(360 - 41 + 1 - 5 * i).Resize(5 * i)
      n = 0
      ReDim brr(1 To 5, 1 To UBound(arr, 2))
      For j = 1 To 5 * i Step i
         n = n + 1
         For k = 1 To UBound(arr, 2)
            brr(n, k) = arr(j, k)
         Next
      Next
      [bg363].Offset((x - 2) * 7).Resize(5, UBound(arr, 2)) = brr
      i = 2 ^ (x + 1) - 1
Next
Beep
Application.ScreenUpdating = True
End Sub

LSYYLW · 发表于 2024-9-20 22:41

本帖最后由 LSYYLW 于 2024-9-20 23:06 编辑

2024-9-21-.zip (22.13 KB, 下载次数: 2)

LSYYLW · 发表于 2024-9-20 22:45

本帖最后由 LSYYLW 于 2024-9-20 23:08 编辑

quqiyuan 发表于 2024-9-20 22:24
可以了，稍作修改即可，仅供参考。。。

再次感谢老师，代码非常好用。还得麻烦老师您一下，您有时间帮我看一下8楼附件里有颜色单元格里的文字，帮我看一下对不对，拜托了！

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

[求助] Excel代码问题，非常感谢！

评分

评分

评分

评分