Back to Basics

' Do-until 이용 Sub find_end_of_data() Dim s As Worksheet Dim r As Long Dim cnt As Long Set s = Sheet1 r = 1 Do Until s.Cells(r, 1) = "" If s.Cells(r, 1) "" Then cnt = cnt + 1 End If r = r + 1 Loop Debug.Print " 데이터의 갯수는:", cnt End Sub ' Range 이용 Sub find_end_of_data2() Dim s As Worksheet Dim rngData As Range Dim cnt As Long Set s = Sheet1 Set rngData = s.Range(s.Range("B1"), s.Range("B1").End(xlD..

Sub lagged_correl() '// Automating Calculation of Lagged Cross Correlations between Variables Const ROWEND = 417 '// change value as your own Const ROWBEGIN = 2 '// change value as your own Const COLBEGIN = 2 '// change value as your own Const OBS = 31 '// change value as your own Dim s As Worksheet Dim s3 As Worksheet Dim lags Dim rng(1 To OBS) As Range Dim rng1 As Range, rng2 As Range Dim col ..

'입력된 셀 값을 받아서 재 입력하기 Sub B_S() Dim col As Long Dim i As Long Dim a() As Long ReDim a(1 To 11) col = 1 For i = 1 To 11 a(i) = Sheet1.Cells(i, col).Value Range("C1").Cells(i, col) = a(i) Next End Sub

엑셀에서 불필요한 공란을 삭제해준다. 오우 굿!