EXCEL VBA如果单元格A10 为空……

来源：百度知道 编辑：UC知道 时间：2024/06/14 10:35:15
如何实现下面功能
1 复制A4:F4内容
2 判断A10是否为空,如果是则在A10粘贴,A4;F4的内容;如否则删除A10,再粘贴A4;F4的内容
急呀!要快!

由题意看出：不论A10是否为空，最后都要清除A10内容再将A4：A10内容粘贴过去，所以不必判断A10是否有内容；
应该写成：
Sub tty()
Range("A10") = ""
For i = 1 To 6
Range("A10") = Range("A10") & Cells(4, i)
Next i
End Sub

看不懂说什么！

1.粘贴后原来的内容就会被删除，所以，A10有无内容都不对粘贴产生影响。
2.A10时单元格，A4：F4是区域，一般不能把A4：F4都粘贴到A10。

就一句代码，没那么复杂的：
Range("A1:F4").Copy Destination:=Range("A10")