Excel代码问题，非常感谢！

LSYYLW

2021-9-2--.zip (19.68 KB, 下载次数: 10)

2021-9-2 17:41 上传

点击文件名下载附件

鄂龙蒙

2021-9-2--.rar (23.53 KB, 下载次数: 3)

2021-9-2 20:11 上传

点击文件名下载附件

一把小刀闯天下

'参与一下，估计是这意思，，，

Option Explicit

Dim lastrow

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$CE$1" Then Exit Sub
  If Target.Value < 1 Or Target.Value > 160 Then Exit Sub
  Dim i
  If Target.Value + 880 >= lastrow Or lastrow = 0 Then
    For i = 2 To 5
      Cells(Target.Value + 880, i) = Cells(Target.Value + 880, i + 81)
    Next
  Else
    For i = 2 To 5
      Cells(lastrow, i) = Empty
    Next
  End If
  lastrow = Target.Value + 880
End Sub

鄂龙蒙

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     If T.Address = "$CE$1" Then
   
3.         Dim arr, r, a
   
4.         a = Range("CE1")
   
5.         r = Cells(Rows.Count, "CE").End(xlUp).Row
   
6.         arr = Range("CE881:CH" & r)
   
7.         If a > UBound(arr) Then MsgBox "超出可填充的数据行了！", , "龙蒙山提示": Exit Sub
   
8.         Range("B881:E65536") = ""
   
9.         If T.Value <> "" Then Range("B881").Resize(a, 4) = arr
   
10.     End If
    
11. End Sub

复制代码

LSYYLW

鄂龙蒙 发表于 2021-9-2 19:59

非常感谢老师，代码非常好用，鲜花稍后为您献上。

LSYYLW

一把小刀闯天下 发表于 2021-9-2 20:13
'参与一下，估计是这意思，，，

Option Explicit

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