같은 값을 연속적으로 붙여 넣기

Question

아주 쉬운 질문이지만, 어떤 이유로 나는 두뇌가 멈추고 있습니다. 행의 시작 부분에 개별 값이 있으며이 값을 복사하여 다음 300 개의 셀에 붙여 넣으려고합니다. 우리는 "A : 1"을 "A : 1"에서 "A : 301"(또는 우리가 선택하는 다른 모든 가치)로보고 싶습니다. 어떻게해야합니까? 이 각 셀에 걸쳐 반복하지 않고, 이러한 루프는 다음과 같습니다

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