특정 열의 Excel 행에 줄 바꿈을 삽입하는 매크로

매크로에 순진하지 않으며 행의 모든 데이터 끝에 줄 바꿈을 입력해야하는 매크로 단추가 필요합니다. 특정 열에 약 1000 행의 데이터가 있습니다. 선택한 열에이 내용을 적용해야합니다. 현재 ALT + ENTER를 사용하고 있지만 시간이 많이 걸립니다.특정 열의 Excel 행에 줄 바꿈을 삽입하는 매크로

도움을 주시면 감사하겠습니다.

나는 현재 코드를 복사 위의 코드

Sub Macro 
Dim Stem As Variant 
Stem = ThisWorkbook.Worksheets ("Sheet1").Range("C2") 
Range ("K2").Select 
Range("K2").FormulaR1C1 = Stem & Chr(10) & "" 
End Sub

아래에만 C2 데이터를 사용하고 K2에 붙여 공식을 적용하고있다. 그러나 C2 열의 모든 데이터가 필요합니다. C를 복사하여 K2 : K에 붙여 넣습니다.

덕분에 내가 정확하게, 당신은 열 K에서 복사 된 레코드를 루프를 원하는 줄 바꿈을 추가하는 것이 이해한다면

출처

2016-09-20 Siraj

현재 사용하고있는 코드, 무엇을 그것은 올바르게하지 않습니까? – YowE3K

당신의 코드는 당신이 요구 한 바를 정확하게 수행하고 있습니다 - C2를 K2로 복사하십시오. 셀이 아닌 범위를 찾아야 할 수도 있습니다. –

물론 그렇지만 코딩 방법은 없습니다. 도와주세요. – Siraj

? 이 2부터 K 세포를 통해 루프 (이 모든 일부터 열을 복사합니다) 사용할 수있는 경우 , 당신은 경우이 필요하다고 변경할 수 있습니다

Sub copyAndNewLine() 
'copy column C to K 
Columns("C").Copy Destination:=Columns("K") 

'loop through all cells in K and add new line 
For i = 2 To Cells(Rows.Count, "K").End(xlUp).Row 
    Cells(i, "K").Value = Cells(i, "K").Value & vbCrLf 
Next i 
End Sub

출처

2016-09-21 09:25:05 Pav

특정 열의 Excel 행에 줄 바꿈을 삽입하는 매크로

답변

관련 문제