|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
첨부와같이 지정된 숫자만큼 해당열에 자료를 뿌릴려면 어케 하는지여???
==============[한울타리님 글에 대한 답변입니다]==============
모범답안은 못되는거 같은데 어쨋든 됩니다.
참고만 하세용.
==============[Dubito님 글에 대한 답변입니다]==============
안녕하세요? Dubito 님!
모범답안이란 것이 어디 있겠습니까^^;;
VBA를 이용해 답변을 주셔서, 저도 간단히...
Sub dhInsert()
Dim lngR As Long
Dim lngK As Long
Dim strArray() As String
Dim i As Integer
Dim j As Integer
Dim rngDb As Range
Dim strTemp As String
Const cTag As String = "잔량"
Set rngDb = Range("A10:A" & Range("A65536").End(xlUp).Row)
lngR = rngDb.Rows.Count
ReDim strArray(1 To lngR, 0)
j = 0
i = 1
For lngK = 1 To lngR
If Len(Cells(i, 2).Value) = 0 Then
strArray(lngK, 0) = cTag
Else
strTemp = Cells(i, 1).Value
If Cells(i, 2).Value > j Then
strArray(lngK, 0) = strTemp
j = j + 1
Else
j = 1
i = i + 1
strArray(lngK, 0) = Cells(i, 1).Value
End If
End If
Next lngK
rngDb.Offset(0, 1).Value = strArray()
Set rngDb = Nothing
End Sub
그럼...행운이 있으시길...! |
|