기 타 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 | - | - |
| 100928 | 하드웨어| 모니터? 고수분께 질문요 [14] | 내리사랑 | 458 | 10-22 |
| 100927 | 소프트웨어| VMware 에서 win11 깔려고 하면 이화면이 나옵니다 [12] | 도우너2 | 523 | 10-22 |
| » | 기 타| VBA_개수만큼 셀추가 [11] | 눈사람4 | 219 | 10-22 |
| 100925 | 윈 도 우| nvme.m2 에서 PrimoCache 사용? [5] | 맹물 | 295 | 10-22 |
| 100924 | 윈 도 우| 윈도우 로그인이 안됩니다ㅠ [3] | redforce85 | 372 | 10-22 |
| 100923 | 윈 도 우| 봉인과 무봉인 차이점 [2] | ASURA-K | 746 | 10-22 |
| 100922 | 윈 도 우| 새로운 outlook 설치 안되게 하는 방법이 있나요? [4] | 깜빙 | 335 | 10-21 |
| 100921 | 윈 도 우| intel management engine interface...? [2] | 사랑해요™ | 340 | 10-21 |
| 100920 | 윈 도 우| 윈도우 에디션 변경 관련 문의 [11] | magoo | 517 | 10-21 |
| 100919 | 윈 도 우| 컴퓨터 시계가 항상 3분이 늦는 경우 [7] | 개골동자 | 844 | 10-21 |
| 100918 | 윈 도 우| 윈도우 11 설치 [7] | #cortana# | 734 | 10-21 |
| 100917 | 윈 도 우| pc 화면 녹화 무설치 어떤거 사용 하시나요^^ [5] | 수리수리 | 498 | 10-21 |
| 100916 | 윈 도 우| "PC를 백업해 보겠습니다" 팝업 [1] | hellokee | 480 | 10-21 |
| 100915 | 기 타| 윈도우10 탐색기에서 자세히,간단히,작은아이콘 보기에서 ... [1] | 믹쯔 | 206 | 10-21 |
| 100914 | 윈 도 우| 파일 다운로드 불가 [3] | sinabro | 263 | 10-21 |
| 100913 | 윈 도 우| 탐색기 상에서 D:드라이브 남은용량이 일정치 않습니다 [4] | 여수밤바다 | 221 | 10-21 |
| 100912 | 윈 도 우| 하드 2개일 때 pe를 메뉴에 추가하는 법? [4] | ksire | 317 | 10-20 |
| 100911 | 소프트웨어| filezilla 포터블 업그레이드 안함으로 설정해도 계속 업그... [6] | 아마로도 | 229 | 10-20 |
| 100910 | 윈 도 우| 외장하드(HDD방식)에 왜 WTG잘안쓰시나요? [3] | QMDEV | 431 | 10-20 |
| 100909 | 기 타| 프로세스가 사용중인 파일 복사 [2] | P군 | 255 | 10-20 |
샘플 파일을 하나 올려 주십시오.
전에 해본 것이라서...