▼스프레드시트 링크
https://docs.google.com/spreadsheets/d/18UFr5gM4SZwsWxlff1wC5DJlvzNIhwLGZC7M7WYEx1A/edit?usp=sharing
스프레드시트에서 사용하는 QUERY 함수에 대해서 질문이 있습니다.
A열의 같은 값끼리 정렬 후
값이 다를 때는 3칸씩 띄우는 방법을
Query 함수를 통해 사용하고 싶습니다.
▼스프레드시트 링크
https://docs.google.com/spreadsheets/d/18UFr5gM4SZwsWxlff1wC5DJlvzNIhwLGZC7M7WYEx1A/edit?usp=sharing
스프레드시트에서 사용하는 QUERY 함수에 대해서 질문이 있습니다.
A열의 같은 값끼리 정렬 후
값이 다를 때는 3칸씩 띄우는 방법을
Query 함수를 통해 사용하고 싶습니다.
"공백칸" 이라고 3개 만들고 글자색을 흰색으로 바꾸고요.
뭐 이런식으로 억지로할수밖에 방법이 없겠네요.
https://infoinspired.com/google-docs/spreadsheet/combine-two-query-results/
B1에 =COUNTIF(A:A, A1) 이렇게 넣어서 각 셀의 빈도수를 계산해서 정렬하고
VBA를 써서 빈칸을 삽입하라고 하네요.
많지 않으면 수작업으로 빈칸 삽입해도 될듯 한데 많은가요?
1. B열에 =COUNTIF(A:A, A1)으로 입력해서 전라도 옆에 3이 나오게 합니다.
2. B1의 내용을 B2 이하에 붙여넣어 빈도수가 나오게 합니다.
3. A, B열을 선택하고 정렬을 B로 내림차순 정렬합니다.
4. ALT+F11을 눌러 VBA 편집기를 엽니다.
5. 삽입 메뉴에서 모듈을 선택한 후에 아래 코드를 넣어주고 Ctrl+S로 저장하고 VBA 편집기를 닫습니다.
Sub InsertRows()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
Rows(i & ":" & i + 2).Insert Shift:=xlDown
End If
Next i
End Sub
6. 해당 Sheet 아무곳에서나 Alt + F8을 누르면 매크로 목록이 뜨고 InsertRows를 실행하면 쭉 3칸 씩 띄워줍니다.
2번 더 수정 요청했는데 고치질 못하네요
그래도 한번 해보세요.. 저도 처음 해봤는데 잘됩니다.