excel表格 宏命令求教修改!

发布网友 发布时间：2022-04-24 20:32

我来回答

共4个回答

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

核心代码的功能是把F176:R176的内容复制、粘贴值到F4，可以用下面的一个语句来实现：
Range("F4:R4").Value = Range("F176:R176").Value
如果需要对Sheet0~Sheet9这些表做这样的操作，代码可以这样写：
Sub 循环()
Dim i
For i=0 To 9
With Sheets("sheet" & i)
.Range("F4:R4").Value = .Range("F176:R176").Value
End With
Next i
End Sub
第二个宏的W176判断，如果也是分别针对这10个表，不是统一的表，建议把逻辑合并到一个宏中，代码可以这样写：
Sub 循环()
Dim i
For i=0 To 9
With Sheets("sheet" & i)
While .Range("W176")>-10

.Range("F4:R4").Value = .Range("F176:R176").Value
Wend

End With
Next i
End Sub

热心网友 时间：2023-10-10 00:02

Sub 循环()
Dim n
For n = 2 To Sheets.Count
arr = Range("F176:R176")
If Sheets(n).[W176] > -10 Then
Sheets(n).[F4].Resize(1, 13) = arr
End If
Next
End Sub
复制到最前面一个分表，后面都是分表。
从第2个分表开始判断，

热心网友 时间：2023-10-10 00:02

for x= 1 to 10
sheets(x).Select
...
...
next

热心网友 时间：2023-10-10 00:03

拿一段错误的代码来钓鱼。知鱼之乐去吧。