실마리

S Y N O P S I S #VBA로 웹페이지 소스코드 리턴 URL로 설정된 웹페이지 주소의 소스코드를 따오는 매크로. 다시 말하면, 웹페이지에서 소스보기를 했을 때 나타나는 내용 모두를 myText 변수로 반환하는 매크로. VBA Code Sub web_source() Dim Http As Object Dim myText As String, myURL as String myURL = "http://www.naver.com" Set Http = CreateObject("MSXML2.XMLHTTP") 'Set Http = CreateObject("WinHTTP.WinHTTPrequest.5.1") '개인적으로 선호 Http.Open "GET", myURL, False Http.send myText = H..

# -- # -- # -- # --

# 런던으로 가기 전 인천국제공항에서 한 컷. # Holiday Inn. 곳곳에 널렸다. 시설은 나쁘지 않다.# 흡연 객실과 금연 객실을 따로 둔다. 팁은 받는다고 한다(프랑스는 팁문화가 거의 없다고 봐야).# 다른 숙박시설은 안가봐서 모르겠다만, 화장실이 정말 별로다(프랑스도 마찬가지).# 화장실 내에 배수구가 없어서 커튼을 치지 않고 샤워를 하면 욕실을 금새 바다로 만들 수 있다(우리나라에도 이런 호텔이 몇 군데 있음..). # 영국은 아파트가 거의 없다고 한다. # 앨버트 기념비. 이 정도로 어마어마한 기념비가 세워질 정도의 사연이 있었는데, 정확히 기억이 안 난다.# 하여튼 기념비를 세워달라고 해서 세웠다고 한다. # 하이드 파크(Hyde Park) 영국에서 가장 큰 공원 중 하나. # 빅벤을 보..

## 첫 번째 시트 "A"열의 빈셀 또는 빈셀이 있는 행을 윗머리 행과 같은 내용으로 채우는 매크로## 데이터를 다루다보면 빈 행은 껄끄러운 존재다. 특히 필터를 거는 경우에는 더더욱 그렇다.## 회사 일을 하면서 가장 많이 쓰는 매크로 중 하나이다. VBA Code Option Explicit Sub duplicate_headrow() Dim myItem Dim mySheet As Worksheet Dim i As Long, lastNum As Long Dim myCol As String Set mySheet = Sheets(1) '대상시트 설정(첫 번째 시트) myCol = "A" '빈행을 채울 열 번호(A열) With mySheet.UsedRange lastNum = .Row + .Rows.Coun..

매크로 설명 첫 번째 시트 "A"열의 빈셀 또는 빈셀이 있는 행 전체를 삭제하는 매크로 이 방법 외에도 SpecialCells 메서드로 빈행을 찾아서 없앨 수 있다. (방법은 많다.) 많은 데이터가 아니거나 손이 많이 가지 않는다면, 자동필터를 이용해서 빈 필드는 제외하고 따로 복사하는 방법을 추천한다. VBA Code 예시 Option Explicit Sub empt_row_del() Dim i As Long Dim lastRow As Long Dim targetCol As String Dim mySheet As Worksheet Set mySheet = Sheets(1) 'mySheet를 첫 번째 시트로 설정, 다른 시트가 필요하다면 변경 With mySheet.UsedRange lastRow = ...