<02-6 행 삭제 개선2>
작성자 정보
-
모아 작성
- 작성일
컨텐츠 정보
- 17 조회
- 0 추천
- 0 비추천
- 목록
본문
<02-6 행 삭제 개선2>
Dim r, Dim a()
Dim i As Long, j As Long, k As Long
r = Range("a1", Cells(Rows.Count, "b").End(xlUp)) ‘raw data를 몽땅 r변수에 넣음
For i = 1 To UBound(r, 1)
If Cells(i, "a") <> "A-1" Then ‘A-1이 아니면 배열에 넣음
k = k + 1
ReDim Preserve a(1 To 2, 1 To k) ‘기존 배열을 유지하면서
For r = 1 To 2
a(r, k) = Cells(i, "a").Offset(0, r - 1).Value
Next
End If
Next
Range("a1").CurrentRegion.ClearContents ‘기존 데이터를 모두 삭제
Range("a1").Resize(UBound(a, 2), 2) = Application.Transpose(a) ‘배열 값을 뿌리기
출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]
|
|
포인트 선물 선물명단 선물하기
최소 5P ~ 최대 100000000P 까지 가능합니다.
로그인 후 선물하실 수 있습니다.
선물 받은 내용이 없습니다.
관련자료
댓글 0
등록된 댓글이 없습니다.