我遇到了问题,很乐意提供帮助。
这是我现在正在使用的内容:
我想要的是将B,C和D列复制到它下面的空白行中,直到到达新的客户为止,如下所示:
任何帮助都将不胜感激。
谢谢
没有VBA解决方案:
用数据选择整个范围。按CTRL+G并选择特殊...
选择空白,然后按确定
您将得到如下图所示的结果。与选定的细胞类型=
和按↑键。按CTRL+ENTER
结果:
现在,如果需要,您可以复制结果并制作PasteSpecial-> Paste Values
VBA解决方案:
Sub test()
Dim rng As Range, ar As Range
On Error Resume Next
Set rng = Range("A2:D20").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rng Is Nothing Then
rng.FormulaR1C1 = "=R[-1]C"
rng.Calculate
For Each ar In rng.Areas
ar.Value = ar.Value
Next
End If
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句