기 타 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
아닙니다. 재미있게 하고 있습니다.
오래전 꽤 엑셀을 다뤘는데 세월이 흐르니 자꾸 잊어 먹습니다.
샘플 파일을 하나 올려 주십시오.
전에 해본 것이라서...