来自动态范围的 VBA 范围值

Question

我正在尝试在不使用复制/粘贴功能的情况下“粘贴”范围值。我对 VBA 很陌生，不明白为什么我的代码不起作用。如果这是一种已经回答但我无法通过其他帖子解决问题的问题，我很抱歉。

我可以选择我希望从中复制和粘贴值的范围

name_task = [code].select
name_task_2 = [code].select

但我无法将值写入 name_task_2

name_task_2 = name_task.value

这行得通，对我来说，我所写的内容以某种方式相同只是更复杂，但由于它不起作用，因此显然不一样 :D

sht2.Range("C2:D12") = sht1.Range("A8:B18").value 

Excel sheet1

Sub Time_Estimate()

Application.ScreenUpdating = False

Dim name_task As Variant
Dim name_task_2 As Variant

Dim R_count As Double
Dim C_count As Double

Dim sht1 As Worksheet
Dim sht2 As Worksheet

Set sht1 = Sheet1 'Sheets("Tekla_2016")

name_task = sht1.Range("A8:B8", sht1.Range("A8").End(xlDown))
R_count = sht1.Range("A8:B8", sht1.Range("A8").End(xlDown)).Rows.Count
'Debug.Print name_task.Rows.Count
'Debug.Print name_task.Columns.Count
Debug.Print R_count

Set sht2 = Sheet2 'Sheets("Timeforbruk_2016 - UFERDIG")

name_task_2 = sht2.Range("C2:D2", sht2.Range("C2:D2").Offset(R_count - 1, 0))

'name_task_2 = name_task.value 'Why doesn't this work???

'sht2.Range("C2:D12") = sht1.Range("A8:B18").value 'This works but it's not dynamic


Application.ScreenUpdating = True

End Sub

编辑： 这段代码现在可以按我的意愿工作：

Sub Time_Estimate()

Application.ScreenUpdating = False

Dim name_task As Range
Dim name_task_2 As Range
Dim rng_sht1 As Range
Dim rng_sht2 As Range


Dim R_count As Double
Dim C_count As Double

Dim sht1 As Worksheet
Dim sht2 As Worksheet

Set sht1 = Sheet1 'Sheets("Tekla_2016")
Set sht2 = Sheet2 'Sheets("Timeforbruk_2016 - UFERDIG")

Set name_task = sht1.Range("A8:B8", sht1.Range("A8").End(xlDown))
R_count = sht1.Range("A8:B8", sht1.Range("A8").End(xlDown)).Rows.Count

Set name_task_2 = sht2.Range("C2:D2", sht2.Range("C2:D2").Offset(R_count - 1, 0))
name_task_2 = name_task.value

Application.ScreenUpdating = True

End Sub

Answer 1

someRange.Select

选择范围someRange 并返回布尔值True（您通常不会注意到这一点，因为您不会尝试将其分配给某物）。这意味着在

之后

name_task = [code].select
name_task_2 = [code].select

name_task 和 name_task_2 都是布尔值 (True) 而不是范围。

在您发布的子中，您还有另一个问题：

name_task = sht1.Range("A8:B8", sht1.Range("A8").End(xlDown))

由于您没有指定 name_task 是什么（除了 Variant，这基本上没有任何意义），vba 将使用范围的 Value 作为默认属性，name_task 将是一个包含 @987654336 的变量数组@。要分配一个范围object，你需要使用Set:

Set name_task = sht1.Range("A8:B8", sht1.Range("A8").End(xlDown))

来自MSDN/this answer：

设置关键字。在 VBA 中，Set 关键字是区分对象赋值和对象默认属性赋值所必需的。由于 Visual Basic .NET 不支持默认属性，因此不需要并且不再支持 Set 关键字。

这实际上是一个很好的例子，为什么使用Option Explicit 是一个好主意（或者在你的情况下正确声明变量）。如果您声明Dim name_task As Range，VBA 会告诉您正确的线路有问题，并且故障排除变得容易得多。