UOS中wps的宏命令与windows中的excel的vba宏不一样了,本人能力实在是不懂,麻烦请高手帮转换一下谢谢!!!
代码如下:
Sub 添加()
n = 8
Do While Cells(1, 4) <> ""
If Cells(n, 1) <> "" Then
n = n + 1
Else:
Range("u2,An2,Ao2,ap2").Copy Destination:=Range(Cells(n, 1), Cells(n, 1))
Cells(n, 1).Value = [u2,An2,Ao2,ap2].Value
Exit Do
End If
Loop
End Sub
|
|
|
|
|
版权说明:论坛帖子主题均由合作第三方提供并上传,若内容存在侵权,请进行举报