누구도 평범한 사람은 없다

Sub split10000() ' ' split10000 Macro ' 10000건 시트별로 나눠담기 ' ' 바로 가기 키: Ctrl+e ' Range("A1:A2000").Select Selection.Copy Sheets("Sheet1").Select ActiveSheet.Paste Sheets("dataSheet").Select Application.Goto Reference:="R2001C1" Range("A2001:A4000").Select Application.CutCopyMode = False Selection.Copy Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste Sheets("..

Sub saveSheet()'' saveSheet Macro' save sheet'' 바로 가기 키: Ctrl+r' Dim strPath As String '저장할 폴더의 경로를 넣을 변수 With Application.FileDialog(msoFileDialogFolderPicker) '폴더선택 창에서 .Show '폴더 선택창 띄우기 If .SelectedItems.Count = 0 Then '취소 선택 시 Exit Sub '매크로 중단 Else strPath = .SelectedItems(1) & "\" '폴더 경로를 변수에 넣음 End If End With Application.CutCopyMode = False Sheets("sheet1").Select ActiveWorkbook.SaveAs st..

Sub make_sql_basic()'' make_sql_basic Macro' push요청쿼리 text파일로 만들기'' 바로 가기 키: Ctrl+e' Dim cnt As Integer Dim model As String Dim cc As String Dim current As String Dim saveText As String Dim i As Long Dim checkMsg As String Dim savePath As String ' Sheets("sheet1").Range("E2")