Question

我正在创建vba宏来复制具有一组值的列。但是在该列之间的某些行是空白的。如何动态编码它以便它将选择直到最后一个非空单元格。

例如在单元格A中如果A1到A20有值 A21是空白的 A22至A35具有值 A36，A37，A38为空白 A39至A45值很高

现在我需要动态选择从A1到A45的值并将其粘贴到B. 也是A中的值来通过公式。我想携带该公式并将其粘贴为公式

我该怎么做？

Answer 1

使用A1中的所有单元格到A列中的最后一个非空单元格：

Dim oAllDataInA As Range
With Worksheets("Sheet1")
    Set oAllDataInA =.Range("A1", .Range("A" & .Rows.Count).End(xlUp))
End With
'Now work with oAllDataInA. For instance. let formula in column B be same as in A:
oAllDataInA.Copy
oAllDataInA.Offset(,1).PasteSpecial xlFormulas

Answer 2

请尝试以下代码..

Sub test()
'change the sheet name as yours
Sheets("Sheet1").Activate
Range("A1", Cells(Rows.Count, 1).End(xlUp)).Copy
'Change the destination range as yours
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas
End Sub

如何选择列到最后一个非空单元格

2 个答案: