블로그
-
(1779) 병합셀 내의 *이후 문자 삭제 (엑셀 VBA 매크로)
매크로 실행 전 매크로 실행 후 결과 Option Explicit Sub delete_After_Asterisk() Dim r As Long '행(r)ow 늘려갈 변수 Dim i As 1), Chr(10)) 'Alt + 엔터를 구분자로 하여 나누어 배열에 넣음 For i = LBound(varS) To UBound(varS) '배열 하한선에서 상한선까지 반복 If
blog.naver.com · 2019.04.07
-
(1765) 데이터 정리후 빈행 삭제하기 (엑셀 VBA 매크로)
매크로 실행 전 매크로 실행 후 결과 Option Explicit Sub combine_Data_And_Delete() Dim varText '삭제할 문자 넣을 배열변수 Dim varEach 배열내 각 값을 순환 ActiveSheet.UsedRange.Replace varEach, "" '일치하는 값을 삭제 Next varEach r = 2 '2행부터 시작 Do '실행 If
blog.naver.com · 2019.03.28
-
(1765) 데이터 정리후 빈행 삭제하기 (엑셀 VBA 매크로)
매크로 실행 전 매크로 실행 후 결과 Option Explicit Sub combine_Data_And_Delete() Dim varText '삭제할 문자 넣을 배열변수 Dim varEach 배열내 각 값을 순환 ActiveSheet.UsedRange.Replace varEach, "" '일치하는 값을 삭제 Next varEach r = 2 '2행부터 시작 Do '실행 If
blog.naver.com · 2019.03.28
-
(1763) 그룹별 색으로 구분하기 (엑셀 VBA 매크로)
매크로 실행 전 매크로 실행 후 결과 Option Explicit Sub paint_Every_Other() Dim colsCnt As Integer '사용영역 열 개수 넣을 변수 화면 업데이트 (일시) 정지 colsCnt = ActiveSheet.UsedRange.Columns.Count '전체 사용영역 열개수 변수에 넣음 r = 2 '2행 부터 시작 Do If
blog.naver.com · 2019.03.27
-
(1763) 그룹별 색으로 구분하기 (엑셀 VBA 매크로)
매크로 실행 전 매크로 실행 후 결과 Option Explicit Sub paint_Every_Other() Dim colsCnt As Integer '사용영역 열 개수 넣을 변수 화면 업데이트 (일시) 정지 colsCnt = ActiveSheet.UsedRange.Columns.Count '전체 사용영역 열개수 변수에 넣음 r = 2 '2행 부터 시작 Do If
blog.naver.com · 2019.03.27
-
중복자료 찾기
Sub mVisit() Dim score As Integer, result As String, tmpPt As String, N As Integer Dim i As Long For i = 2 To 65536 score = Cells(i, 38).Value If (score >= 4) Then 'tmp = Cells(i, 1) 'For N = 3707 To
blog.naver.com · 2018.06.06
-
엑셀 대 소문자 변환 매크로
Sub 소문자변환() Selection = Application.Evaluate("IF(" & Selection.Address & "=" _ & Selection.Address & ",LOWER(" & Selection.Address & "))") End Sub LOWER 대신에 UPPER를 적으면 모두 대문자로 변환합니다.
blog.naver.com · 2017.09.01
-
동일한 값을 추가하기 엑셀
Sub test1() Dim N As Integer 'For N = 3707 To 5229 ' 2 To 5229 For N = 3707 To 5229 ' 2 To 5229 With Worksheets("ShimMiSook").Range("A2:A5140") '5140 Set c = .Find(Cells(N, 1)) If Not c Is Nothing Then
blog.naver.com · 2016.12.29
-
엑셀 시트복사 수식에 의한 충돌 해결방법.
--- Sub 이름삭제() Dim 이름 As Name Dim 개수 As Integer For Each 이름 In ActiveWorkbook.Names If Not 이름.Visible End Sub ---.......
blog.naver.com · 2016.05.09
-
지오메트리대쉬 - If Sonic Wave Was lv1 / Sonic Blaster
Cylcic.s Hell level xD if ver Many People hate Auto series so I play If . and real demon Plz Like and Sub?
blog.naver.com · 2015.07.29
