기 타 VBA_개수만큼 셀추가
2024.10.22 10:32
C열 각 셀에 숫가가 있으면 그 숫자대로 셀 추가되는 VBA를 만들려 이틀째 인터넷 검색도해보면서 해봤는데 안돼네요.^^:;
엑셀 고수님 계시면 부탁드려봅니다.
댓글 [11]
-
지후빠 2024.10.22 10:36
-
눈사람4 2024.10.22 13:48
샘플입니다.^^
-
GreenTea 2024.10.22 12:15
코파일럿에 물어 봤습니다.
Sub InsertRowsBasedOnColumnC()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long, j As Long
Dim insertCount As Integer
Set ws = ThisWorkbook.Sheets("Sheet1") ' 작업할 시트를 지정합니다.
lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row ' C열의 마지막 셀을 찾습니다.
For i = lastRow To 1 Step -1
insertCount = ws.Cells(i, "C").Value
If IsNumeric(insertCount) And insertCount > 0 Then
For j = 1 To insertCount
ws.Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next j
End If
Next i
End Sub
VBA 아신다면 몇군데 수정 하면 되지 않을까 합니다.** 수정 없이 잘 되네요(C열 숫자 만큼 셀 추가) -
눈사람4 2024.10.22 12:32
-
지후빠 2024.10.22 17:25
C2에 두고 실행하시면 될 것 같습니다.
D셀에 데이터가 없으면 멈춥니다.
Sub 숫자만큼행복사하기()
Application.ScreenUpdating = False
Do Until ActiveCell.Offset(0, 1) = ""
EA = ActiveCell.Value
If EA > 1 Then
For i = 1 To EA - 1
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Insert
Next
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub
-
눈사람4 2024.10.23 07:03
영상파일과 같은 VBA를 만들고 싶습니다.^^
바쁘시드라도 한번 봐주세요.
-
지후빠 2024.10.23 08:29
ea가 1이면 1개를 추가하여 2개가 되고 3이면 3개 추가하여 4개가 되는 형식인가요?
질문 게시물에 스크린샷을 보면 3이면 2개를 추가하여 합이 3개가 되어 있어 있어서요.
그렇다면 4면 4개 추가하여 5개를 만들면 되는 것이죠? ^^
-
눈사람4 2024.10.23 08:56
네 네^^
-
지후빠 2024.10.23 09:38
Sub 숫자만큼행복사하기()
Application.ScreenUpdating = False
Do Until ActiveCell.Offset(0, 1) = ""
EA = ActiveCell.Value
If EA > 0 Then
For i = 1 To EA
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Insert
Next
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub
-
눈사람4 2024.10.23 10:14
잘됩니다. ㅎ ㅎ
개인시간빼면서까지 만들어주셔서 죄송하고 감사합니다.
잘 사용하겠습니다.
-
지후빠 2024.10.23 11:01
아닙니다. 재미있게 하고 있습니다.
오래전 꽤 엑셀을 다뤘는데 세월이 흐르니 자꾸 잊어 먹습니다.
| 번호 | 제목 | 글쓴이 | 조회 | 등록일 |
|---|---|---|---|---|
| [공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
| 100935 | 윈 도 우| 기본 설정 언어에 ..... | dadf | 116 | 10-24 |
| 100934 | 소프트웨어| PC모드에서 웹모드로.... [5] | 16k | 233 | 10-24 |
| 100933 | 윈 도 우| 윈도우 보안 메뉴가 안보여요 [1] | 조세현 | 360 | 10-23 |
| 100932 | 소프트웨어| vmware_vhd 연동해서 쓰고 있습니다. [2] | PippO | 272 | 10-23 |
| 100931 | 소프트웨어| NVME M.2 [5] | 도파니 | 739 | 10-23 |
| 100930 | 윈 도 우| Win11 23H2 깔면 [5] | 도파니 | 662 | 10-23 |
| 100929 | 윈 도 우| 무월님 윈도우의 install.wim 에 어떤 설정들이 되어있나요? [8] | ton3d | 453 | 10-23 |
| 100928 | 하드웨어| 램 몇기가 까지 가능할께요? [10] | 일용이네 | 725 | 10-22 |
| 100927 | 윈 도 우| 웹서핑하다가.. 실수로 CMD명령어 입력..!! 도와주세요. [1] | 엠원 | 573 | 10-22 |
| 100926 | 윈 도 우| 바탕화면에 아이콘이 안 보이고? [4] | 붉은낙타 | 324 | 10-22 |
| 100925 | 윈 도 우| 윈도우 패킹 관련 질문드립니다. | 믹스민트 | 211 | 10-22 |
| 100924 | 하드웨어| 모니터? 고수분께 질문요 [14] | 내리사랑 | 474 | 10-22 |
| 100923 | 소프트웨어| VMware 에서 win11 깔려고 하면 이화면이 나옵니다 [12] | 도우너2 | 553 | 10-22 |
| » | 기 타| VBA_개수만큼 셀추가 [11] | 눈사람4 | 242 | 10-22 |
| 100921 | 윈 도 우| nvme.m2 에서 PrimoCache 사용? [5] | 맹물 | 324 | 10-22 |
| 100920 | 윈 도 우| 윈도우 로그인이 안됩니다ㅠ [3] | redforce85 | 395 | 10-22 |
| 100919 | 윈 도 우| 봉인과 무봉인 차이점 [2] | ASURA-K | 794 | 10-22 |
| 100918 | 윈 도 우| 새로운 outlook 설치 안되게 하는 방법이 있나요? [4] | 깜빙 | 370 | 10-21 |
| 100917 | 윈 도 우| intel management engine interface...? [2] | 사랑해요™ | 382 | 10-21 |
| 100916 | 윈 도 우| 윈도우 에디션 변경 관련 문의 [11] | magoo | 541 | 10-21 |
샘플 파일을 하나 올려 주십시오.
전에 해본 것이라서...