이 기사에서는 여러 시트에 매일 데이터를 정렬하는 매크로를 만들 것입니다.

이 기사의 원시 데이터는 날짜, 에이전트 이름 및 판매 된 품목 수를 포함하는 팀의 일일 판매 데이터로 구성됩니다.

ArrowRawData

데이터를 여러 장에 하루 단위로 배포하려고합니다. “일별 데이터 배포”버튼을 클릭해도 동일한 작업이 수행됩니다.

ArrowOutput

코드 설명

IsEmpty (Worksheets (1) .Cells (intRowS, 1))

루프 위의 코드에서 Do Until 루프는 빈 셀이 나타날 때까지 반복됩니다.

strTab = Format (Cells (intRowS, 1) .Value, “ddmmyy”)

위의 코드는 날짜에서 시트 이름을 추출하는 데 사용됩니다.

intRowT = Worksheets (strTab) .Cells (Rows.Count, 1) .End (xlUp) .Row + 1 위 코드는 마지막 셀의 행 번호를 가져 오는 데 사용됩니다.

아래 코드를 따르세요

Sub Divide()

'Declaring variables

Dim intRowS As Integer, intRowT As Integer

Dim strTab As String

'Initializing with starting row number

intRowS = 10

'Checking whether cell in first column is empty

Do Until IsEmpty(Worksheets(1).Cells(intRowS, 1))



'Getting name of the sheet based on the date value in the first column

strTab = Format(Cells(intRowS, 1).Value, "ddmmyy")



'Getting the row number of last cell

intRowT = Worksheets(strTab).Cells(Rows.Count, 1).End(xlUp).Row + 1



'Copying data to respective sheet

Rows(intRowS).Copy Worksheets(strTab).Rows(intRowT)

intRowS = intRowS + 1

Loop

End Sub

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요