Sub 宏2() ' ' 宏2 宏 ' ' For i = 1 To 2175

发布网友发布时间：2022-05-27 09:48

共1个回答

热心网友时间：2023-10-15 13:01

不知道你的用途和计算逻辑，如果你确保计算逻辑是对的，可以这样该改。
Sub 宏2()
'
' 宏2 宏
'

'
on error resume next
For i = 1 To 2175
If Sheet1.Range("D" & i) = "" Then
irow = i - 1
Sheet1.Range("D" & i) = Sheet1.Range("D" & (i - 1))
Sheet1.Range("AI" & irow) = Sheet1.Range("AI" & irow) & "," & Sheet1.Range("D" & i)
End If
Next i
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

Sub 宏2() &#39; &#39; 宏2 宏 &#39; &#39; For i = 1 To 2175

Sub 宏2() ' ' 宏2 宏 ' ' For i = 1 To 2175