X 줄마다 셀에 정적 텍스트 채우기

Question

X 개의 레코드마다 빈 행을 채우는 코드가 있습니다. 내가하고 싶은 일은 그 빈 행의 일부 정적 텍스트에 셀을 연결하는 코드를 작성하는 것입니다. 다음은 빈 행을 추가 할 때 사용하는 코드입니다. 모든 코드가 아닌 인터넷에서 가져온 코드입니다. 필요한 것은 정적 텍스트를 작성중인 빈 줄에 채우는 것입니다. 그런 다음 패딩을 계속하고 50 개의 레코드를 추가하십시오. 감사!

********** 
Sub InsertRowEveryXrows() 

    Dim rw As Long 
    Dim lr As Long 
    Dim cnt As Long 
    lr = Range("A" & Rows.Count).End(xlUp).Row 
    rw = 2 
    cnt = 1 
    Do 
    If cnt = 50 Then 
     Rows(rw).Insert Shift:=xlDown 
     cnt = 1 

    Else 
     cnt = cnt + 1 
    End If 
    rw = rw + 1 
    Loop While rw <> lr 
End Sub 
***************** 

Answer 1

당신이 이런 식으로, (이것은 1의 열을 가정) (51)로하고 정적 텍스트를 추가 CNT 때 질문의해야 할 유일한 것은 :

Sub InsertRowEveryXrows() 

    Dim rw As Long 
    Dim lr As Long 
    Dim cnt As Long 
    lr = Range("A" & Rows.Count).End(xlUp).Row 
    rw = 2 
    cnt = 1 
    Do 
    If cnt = 50 Then 
     Rows(rw).Insert Shift:=xlDown 
     cnt = 1 
    Else 
     if cnt = 51 then 
      cells(rw,1) = "your static text" 
     else 
     cnt = cnt + 1 
     End If 
    End If 
    rw = rw + 1 
    Loop While rw <> lr 

End Sub 

어떻게되는지 말해, 도움이되기를 바랍니다!

Answer 2

나는 무슨 일이 있었는지 보여주기 위해 코드에 주석을 추가했지만 이것은 나를 위해 일했고 조금 더 빠르다.

Public Sub Sample() 
Dim WkSht As Worksheet 
Dim LngLR As Long 'Last Row 
Dim LngCR As Long 'Current Row 

'Connect to the worksheet 
Set WkSht = ThisWorkbook.Worksheets("Sheet1") 

    'Get the last row so we know when to stop 
    LngLR = WkSht.Range("A" & WkSht.Rows.Count).End(xlUp).Row 

    LngCR = 51 '51 to account for the first row being a header 

    'Keep adding the 50th row until when would end up past the last row 
    Do Until LngCR > LngLR 

     'Add the new row 
     WkSht.Rows(LngCR).Insert Shift:=xlDown 

     'Populate it 
     WkSht.Range("A" & LngCR) = "Your static text" 

     'Increase the last row as it will now be one more 
     LngLR = LngLR + 1 

     'Got to the next 50th 
     LngCR = LngCR + 50 
    Loop 

Set WkSht = Nothing 

End Sub 

• 나는 이것이 당신의 행함가 읽기 혼란 스러울 수 있지만 지금은 잘 작동하고 코드가 얻는 경우에 더 큰 모호함이 원인 일이 당신에게 일어날 수 있도록 어떤 좋은 방법은, 그대로 변수로 워크 시트에 연결 기대하지 않았다.
• 기술적으로 1 대신 50을 증가 시켰습니다. 기술적으로 이것은 50 배 더 빠릅니다. 그러나 오늘날의 컴퓨터에서는 모두 흐림입니다.
• 매번 마지막 행이 하나씩 아래로 이동하는 코드는 고려하지 않았습니다. 당신은 행을 추가했습니다.