열의 마지막 행까지 수식 채우기

열의 마지막 행까지 수식 채우기

저는 M3 세포에 있는 공식을 데이터 세트의 끝까지 끌어내려고 노력하고 있습니다.

데이터가 있는 마지막 셀을 결정하기 위해 L 열을 기준으로 사용하고 있습니다.제 공식은 텍스트 쉼표가 있는 두 셀의 연결입니다.

제 공식은 =G3&", &L3입니다.

나는 엑셀이 이 공식을 작성하기를 원합니다.

셀 M4는 =G4&", &L4일 것입니다.
셀 M5는 =G5&", &L5 등이 될 것입니다.

내 코드:

Range("$M$3").Formula = Range("G3") & (",") & Range("L3")

Dim Lastrow As Long

Application.ScreenUpdating = False

Lastrow = Range("L" & Rows.Count).End(xlUp).Row
Range("M4").FormulaR1C1 = Range("G4") & (",") & Range("L4")
Range("M4").AutoFill Destination:=Range("M4:M" & Lastrow)
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True

제 출력은 M3 셀에서 데이터 세트의 끝까지 텍스트 값을 아래로 끌어내리는 것입니다.저는 해결책을 찾으려고 몇 시간 동안 찾아봤지만, 제가 원하는 것을 성취하려고 하는 해결책을 찾을 수 없습니다.

실은 한 대의 정기선입니다.사용할 필요 없음.Autofill

Range("M3:M" & LastRow).Formula = "=G3&"",""&L3"

또는 FillDown을 사용할 수 있습니다.

Range("M3") = "=G3&"",""&L3": Range("M3:M" & LastRow).FillDown

비슷한 질문을 가진 사람들이 이 게시물을 찾을 수 있습니다(저와 마찬가지로). 데이터 세트가 표 형식으로 되어 있으면 마지막 행이 없어도 이 작업을 수행할 수 있습니다.

Range("tablename[columnname]").Formula = "=G3&"",""&L3"

진정한 하나의 라이너로 만드는 것.누군가에게 도움이 되길 바랍니다!

멋진 대답!저는 다음 제목 셀까지 아래 빈 셀에 적용되는 셀에 제목이 있는 열에 빈 셀을 채워야 했습니다.

저는 위의 당신의 코드를 사용하여 여기 예시 시트 아래의 코드를 개발했습니다.제목을 복사하는 열을 빠르게 실행하기 위해 이 코드를 매크로 ctl/shft/D로 적용했습니다.

예제 스프레드시트 ------------- 제목 1은 2행과 3행에 복사되고, 제목 2는 5행과 6행에 있는 그 아래 셀에 복사됩니다.매크로를 두 번째 실행한 후 활성 셀이 Title3 셀이 됩니다.

 ' **row** **Column1**        **Column2**
 '    1     Title1         Data 1 for title 1
 '    2                    Data 2 for title 1
 '    3                    Data 3 for title 1
 '    4     Title2         Data 1 for title 2
 '    5                    Data 2 for title 2
 '    6                    Data 3 for title 2
 '    7   Title 3          Data 1 for title 3

CopyDown 코드 ----------

Sub CopyDown()
Dim Lastrow As String, FirstRow As String, strtCell As Range
'
' CopyDown Macro
' Copies the current cell to any empty cells below it.   
'
' Keyboard Shortcut: Ctrl+Shift+D
'
    Set strtCell = ActiveCell
    FirstRow = strtCell.Address
' Lastrow is address of the *list* of empty cells
    Lastrow = Range(Selection, Selection.End(xlDown).Offset(-1, 0)).Address
'   MsgBox Lastrow
    Range(Lastrow).Formula = strtCell.Formula

    Range(Lastrow).End(xlDown).Select
 End Sub

언급URL : https://stackoverflow.com/questions/25788750/fill-formula-down-till-last-row-in-column