참고로, 기존 일지에서 4번 스마트도서관 내용을 추가했어요.. 매크로 잘 몰라서 책보고하는데 어렵네요 ㅠㅠ
Sub dataSave()
Dim lngR As Long
Dim lngC As Long
Dim lst() As Variant
Dim c As Long
Dim r As Long
Dim i As Long
Dim m As Long
Dim tmp As Long
Dim lngAns As Long
With Sheet1
lngR = .Cells(Rows.Count, "A").End(xlUp).Row
lngC = .Cells(4, Columns.Count).End(xlToLeft).Column - 1
For i = 3 To lngR
If .Cells(i, "A").Value = Sheet328.Range("A4").Value Then
lngAns = MsgBox("이미 저장된 날짜입니다" & Chr(10) & "덮어쓰시겠습니까?", _
vbYesNo + vbQuestion, strCoName)
If lngAns = vbYes Then
lngR = i - 1
Else
Exit Sub
End If
End If
Next
.Cells(lngR + 1, "A").Value = Sheet328.Range("A4").Value
End With
With Sheet328
ReDim lst(1 To lngC)
i = 0
For r = 7 To 9 '1.자료이용현황-관외
For c = 3 To 12
i = i + 1
lst(i) = .Cells(r, c).Value
Next c
Next r
For r = 12 To 14 '1.자료이용현황-관내
For c = 3 To 12
i = i + 1
lst(i) = .Cells(r, c).Value
Next c
Next r
For r = 21 To 23 '2.이용자현황-관외
i = i + 1
lst(i) = .Cells(r, 3).Value
Next r
For r = 26 To 28 '2.이용자현황-관내
i = i + 1
lst(i) = .Cells(r, 3).Value
Next r
'3.회원수
i = i + 1
lst(i) = .Cells(22, "H").Value
i = i + 1
If lngR = 4 And .Cells(22, 8).Value = Sheet1.Cells(lngR + 1, 68).Value Then
lst(i) = Sheet1.Cells(lngR + 1, 68).Value
Else
lst(i) = .Cells(22, "N").Value
End If
For m = 28 To 30 '4.스마트무인도서관 이용현황-이용책수
i = i + 1
lst(i) = .Cells(m, 10).Value
Next m
For m = 28 To 30 '4.스마트무인돈서관 이용현황-이용자수
i = i + 1
lst(i) = .Cells(m, 13).Value
Next m
For c = 4 To 13 '5.자료 현황
i = i + 1
lst(i) = .Cells(36, c).Value
Next c
i = i + 1
lst(i) = .Cells(40, "A").Value
End With
With Sheet1
.Cells(lngR + 1, "B").Resize(1, lngC) = lst
With .Sort '데이터 범위 오름차순 정렬
.SetRange Range("5:" & lngR + 1)
.Header = xlNo
.Orientation = xlTopToBottom
.Apply
End With
End With
Erase lst
End Sub
| 
X 0.5매 매크로 아래첨자사용이 잘못되었다는데요. 어디를 수정해야 하나요?
등록안내
