Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
계좌 개설  \/ 
x

or

Excel에서 명령 단추로 빈 새 행을 자동으로 삽입하는 방법은 무엇입니까?

대부분의 경우 워크 시트의 지정된 위치에 빈 새 행을 삽입해야 할 수 있습니다. 이 기사에서는 Excel에서 명령 단추를 클릭하여 빈 새 행을 자동으로 삽입하는 방법을 보여줍니다.

명령 단추로 빈 새 행을 자동으로 삽입


명령 단추로 빈 새 행을 자동으로 삽입

다음 VBA 코드를 실행하여 명령 단추를 클릭하여 빈 새 행을 삽입 할 수 있습니다. 다음과 같이하십시오.

1. 먼저 Command Button을 삽입해야합니다. 클릭하세요 개발자 > 끼워 넣다 > 명령 단추 (ActiveX 컨트롤). 스크린 샷보기 :

2. 그런 다음 새 행을 추가해야하는 워크 시트에 명령 단추를 그리고 명령 단추를 마우스 오른쪽 단추로 클릭하고 등록 오른쪽 클릭 메뉴에서.

3. 에서 등록 대화 상자에서 명령 단추의 표시된 텍스트를 표제 아래 상자 분류 된 탭을 클릭 한 다음 대화 상자를 닫습니다.

아래 스크린 샷과 같이 Command Button의 표시된 텍스트가 변경된 것을 볼 수 있습니다.

4. 명령 단추를 다시 마우스 오른쪽 단추로 클릭 한 다음 코드보기 오른쪽 클릭 메뉴에서.

5. 그런 다음 응용 프로그램 용 Microsoft Visual Basic 창에서 원래 코드를 아래 VBA 코드로 바꾸십시오. 암호 창.

VBA 코드 : 명령 단추로 빈 새 행 자동 삽입

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

주의 사항: 코드에서 CommanButton1은 생성 한 Command Button의 이름입니다.

6. 프레스 다른 + Q 키를 동시에 닫아 응용 프로그램 용 Microsoft Visual Basic 창문. 그리고 끄십시오 디자인 모드 아래 개발자 탭.

7. 삽입 된 명령 단추를 클릭하고 Excel 용 Kutools 대화 상자가 나타납니다. 빈 새 행을 추가 할 특정 행 번호를 입력 한 다음 OK 단추. 스크린 샷보기 :

그런 다음 아래 스크린 샷과 같이 빈 새 행이 워크 시트의 지정된 위치에 삽입됩니다. 그리고 위 셀의 셀 서식을 유지합니다.


관련 기사:


최고의 사무 생산성 도구

Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 향상시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에 쉽게 배포 할 수 있습니다. 전체 기능 30 일 무료 평가판. 60 일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성이 50% 증가하고 매일 수백 번의 마우스 클릭이 줄어듭니다!
officetab 하단
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kamau Kionga · 1 years ago
    Sub AddNewRow()

    Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect Password:="1234"

    Dim mySheets
    Dim i As Long

    mySheets = Array("Sheet2")

    For i = LBound(mySheets) To UBound(mySheets)
    With Sheets(mySheets(i))
    .Range("B10").EntireRow.Insert Shift:=xlDown
    .Range("B10:H10").Borders.Weight = xlThin
    End With
    Next i

    ActiveSheet.Protect Password:="1234"

    End Sub

    I don't know if this will work for you. It worked quite well for me. I even left unprotected cells that you can input data and the formulas are still active. Took me a whole day to figure it out. replace "1234" with whatever password you feel like, "Sheet2" with the Sheet you are working with and input the range you want.
    The code first unprotects the worksheet, adds row and protects the worksheet.
    kiongakamau@gmail.com
  • To post as a guest, your comment is unpublished.
    goncalo.teixeira992@gmail.com · 1 years ago
    is it possible to create in a different sheet? I really need that
  • To post as a guest, your comment is unpublished.
    arif · 1 years ago
    can possible insert multiple sheet row at one time click by this .
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi,
      The below code can help you solve the problem. Please have a try.

      Private Sub CommandButton1_Click()
      Dim xIntRrow As Integer
      Dim rowNum As Integer
      On Error Resume Next
      rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
      Title:="Kutools for excel", Type:=1)
      xIntRrow = Application.InputBox(Prompt:="Type in the number of rows you want to insert", _
      Title:="Kutools for excel", Type:=1)
      Rows(rowNum + 1 & ":" & rowNum + 1).EntireRow.Resize(xIntRrow).Insert Shift:=xlShiftDown

      End Sub
  • To post as a guest, your comment is unpublished.
    JW · 2 years ago
    Yes, I played with the script and it worked for me. You just add the row number you want (I chose row 6), but I'll be shocked if it's allowed to be published.

    Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    Rows(rowNum & "6").Insert Shift:=xlDown
    End Sub
  • To post as a guest, your comment is unpublished.
    Tarl · 2 years ago
    Is there a way to have the new row keep the formatting of the row below instead of the row above?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Tarl,
      Sorry can help solving this problem yet. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Simon · 3 years ago
    Is there a way to add an Insert Row button and have the new rows keep the cells merged/formatted as they are in the rest of a table?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Simon,
      Sorry can help solving this problem yet. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    stiles.michellel@gmail.com · 3 years ago
    I'm having the same issue as Kim - When the sheet is unprotected it adds the row with the correct formatting and correct formulas. Once the sheet is protected it doesn't copy down the formulas. Any thoughts?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Dear Michelle,
      By default, a protected worksheet does not allow to insert blank row.
      Therefore, the VBA code can't work in that case.
  • To post as a guest, your comment is unpublished.
    Kim · 4 years ago
    Hi

    I am using this code but it is not bringing down the formulas from the row before, can you help please.
    • To post as a guest, your comment is unpublished.
      crystal · 4 years ago
      Dear Kim,

      Please insert a Table with the range you will insert blank rows inside. After that, when inserting new row, the formula will bring down automatically.

      Best Regards, Crystal
      • To post as a guest, your comment is unpublished.
        Robert · 3 years ago
        Can you provide an example? Not following what you're say here. Thanks
        • To post as a guest, your comment is unpublished.
          crystal · 3 years ago
          Hi,
          Please convert your range to a table range in order to bring down the formula automatically when inserting new rows. See screenshot:
  • To post as a guest, your comment is unpublished.
    Lydia · 4 years ago
    Could anyone advise on how can I amend this to automatically add the new row to the bottom of an excel table?
    • To post as a guest, your comment is unpublished.
      Raviv · 3 years ago
      did you find the answer ?