在一行中快速粘贴相同的值

Question

一个非常简单的问题，但出于某种原因我的大脑冻结了。我在一行的开头有一个单独的值，并希望将此值复制并粘贴到接下来的 300 个单元格中。为了争论起见，假设 "A:1" 并且值为 1。我们希望看到 "A:1" 到 "A:301" 全部为 1（或我们选择的任何其他值）...我该怎么做这没有遍历每个单元格，这样的循环将是：

   If Not IsEmpty(Sheets("Sheet1").Range("A1")) Then
   Sheets("Sheet1").Range("A1").Copy
   For k = 2 To 301
   Sheets("Sheet1").Cells(1, k).PasteSpecial xlPasteValues
   Next
   Application.CutCopyMode = False
   End If

如果只有 300 个单元格，循环可能是可以接受的，但对于任何更大的单元格，这就变得太慢了。请帮忙?!?!

非常感谢。

Answer 1

只有这一行：

Sheets("Sheet1").Range(Sheets("Sheet1").Cells(1, 2),Sheets("Sheet1").Cells(1, 301)).value = Sheets("Sheet1").Range("A1").Value

或者您可以使用 With 块并减少输入量：

With Sheets("Sheet1")
    .Range(.Cells(1, 2),.Cells(1, 301)).value = .Range("A1").Value
End With

Answer 2

无需复制和粘贴 - Range("A1:A300").Value = Range("A1").Value 即可

Answer 3

也许：

Sub dural()
    With Sheets(1)
        .Range("B1:KO1").Value = .Range("A1").Value
    End With
End Sub

在一行中快速粘贴相同的值

Pasting the same value quickly over a row

excel

vba

loops

copy-paste