[Excel][VBA] 중복데이터 추출
Switch 알고리즘을 이용한 중복데이터 추출 CODE Function Switch_Algorism(arr) ' 중복데이터 제거 -> 단일 데이터 Dim i, j, k, cnt As Integer Dim NewArray() As Variant k = 0 For i = LBound(arr) To UBound(arr) - 1 cnt = 0 For j = i + 1 To UBound(arr) If arr(i) = arr(j) Then cnt = cnt + 1 Exit For End If Next j If cnt = 0 Then ReDim Preserve NewArray(k) NewArray(k) = arr(i) Debug.Print NewArray(k) k = k + 1 End If Next i ReDim P..
VBA
2021. 11. 17. 14:10
공지사항
최근에 올라온 글
최근에 달린 댓글
- Total
- Today
- Yesterday
링크
TAG
- EnableCancelKey
- inputbox
- 배열
- 프로시저 호출
- 차트 레이블 추가
- 함수 재계산
- 사용자 정의 함수 사용 예
- 워크시트 함수 재계산
- vba
- bubble sort
- 적용 범위
- for each
- Function Procesure
- 차트 서식변경
- 함수 프로시저
- Screenupdating
- Option Compare Text
- 참조
- 사용자 정의 함수 재계산
- Excel
- 원본 데이터
- 사용자 정의 함수
- Application.InputBox
- WorkSheet Sort
- 개체
- 강제 재계산
- 프로시저 작성 실전
- comment.text
- ProtectStructure
- function함수 예외
| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | 4 | 5 | ||
| 6 | 7 | 8 | 9 | 10 | 11 | 12 |
| 13 | 14 | 15 | 16 | 17 | 18 | 19 |
| 20 | 21 | 22 | 23 | 24 | 25 | 26 |
| 27 | 28 | 29 | 30 | 31 |
글 보관함