중복데이터

중복 데이터값 합산하기 #2

이전 포스팅에서 썼던 중복 데이터값 합산을 SQL을 이용해서 좀더 스마트하게 만들수 있더군요. 좌측의 데이터를 맨 우측의 양식으로 뽑아냅니다. 코드는 아래와 같습니다. Option Explicit Sub add_each_code() Dim rowsCnt As Long Dim strSQL As String, strConn As String, code As String Dim Rs As ADODB.Recordset Dim i As Integer rowsCnt = Cells(Rows.Count, "A").End(3).Row strSQL = "SELECT 코드, SUM(수량) AS 수량 " strSQL = strSQL & "FROM [$A1:B" & rowsCnt & "] " strSQL = strSQL & "..