1일1함수 (26) LEFT, RIGHT 함수

오늘은 LEFT 함수와 RIGHT 함수에 대해 알아보겠습니다. 두 함수는 정반대방향으로 똑 같은 기능을 하는 함수이기 때문에, 하나만 알아두시면 나머지 하나는 저절로 아시게 되어있습니다.
LEFT는 텍스트 문자열의 첫 번째 문자부터 시작하여 지정한 문자 수만큼 문자를 반환합니다.
구문
LEFT(text,num_chars)
text  추출할 문자가 들어 있는 텍스트 문자열입니다.
num_chars  LEFT 함수로 추출할 문자 수입니다.
num_chars는 0이거나 0보다 커야 합니다.
num_chars가 문자열의 길이보다 길면 LEFT는 텍스트 전체를 반환합니다.
num_chars를 생략하면 1로 간주됩니다.

RIGHT는 지정한 문자 수에 따라 텍스트 문자열의 마지막 문자부터 지정된 개수의 문자를 반환합니다.
구문
RIGHT(text,num_chars)
text  추출할 문자가 들어 있는 텍스트 문자열입니다.
num_chars  추출할 문자 수를 지정합니다.
주의
  • num_chars는 0이거나 0보다 커야 합니다.
  • num_chars가 문자열의 길이보다 크면 RIGHT는 모든 문자열을 반환합니다.
  • num_chars를 생략하면 1로 간주됩니다.

다음 문제를 풀어보세요.
"A1:A4 범위에서, 첫번째 글자가 영어소문자이고 두번째 글자가 숫자인 셀의 개수를 구하시오."


정답은 다음과 같습니다.
=SUMPRODUCT((CODE(MID(A1:A4,1,1))>=97)*(CODE(MID(A1:A4,1,1))<=122)*(CODE(MID(A1:A4,2,1))>=48)*(CODE(MID(A1:A4,2,1))<=57))

SUMPRODUCT함수는 원래는 배열의 각 항목의 곱의 합을 구하는 것인데, 실제로는 여러 조건들을 모두 만족하는 셀의 수나 해당 셀값의 합을 구하는데 더 많이 사용됩니다. 이전 글들을 참고하세요.

위 함수의 해석은 "A1:A4범위의 셀중에서 첫번째 글자의 아스키코드값이 97이 넘으면서 122를 넘지 않는 조건과 두번째 글자의 아스키코드값이 48을 넘으면서 57을 넘지 않아야하는 모든 조건을 다 만족하는 셀의 개수를 구하라"입니다. 여기서 MID함수가 네 번 나오는데, 앞에 나오는 두 개의 MID함수는 사실 LEFT함수를 쓰면 더 간단합니다.
즉, MID(A1:A4,1,1)는 결국 LEFT(A1:A4,1) 와 같습니다
하지만 아직 LEFT함수를 배우지 않았기에 그냥 MID함수를 쓰는 것을 답으로 했습니다.^^*

그리고, 지난 포스트에서 마지막에 이름을 구하는 수식도 사실은
=RIGHT(A1,3)
처럼 하면 더 간단했습니다. 아, 이름이 네자 이상인 학생의 경우도 생각하면, 좀 더 어려워지겠군요. 그건 숙제로 남겨 두겠습니다.^^*

2009/04/29 - [컴퓨터/엑셀] - 1일1함수 (24) FIND함수 : 문자열에서 지정 문자의 위치 찾기
2009/04/23 - [컴퓨터/엑셀] - 1일1함수 (20) MID함수 : 문자열에서 지정한 위치의 문자 추출

댓글

댓글 쓰기

이 블로그의 인기 게시물

중복된 텍스트 제외하고 고유 텍스트 개수 세기

이미지
네이버 지식인 에서 알게 된 좋은 수식을 소개합니다. 이런 식으로 A1:D2 범위 내에 사람 이름이 중복된 것 포함해서 여러개 있습니다. 이때  중복된 이름은 제외하고 모두 몇 명의 이름이 있는지  알고 싶을 때 쓰는 수식입니다. 수식은 위와 같습니다.  일단, 이 수식의 기본적인 구조는,  각 사람의 이름이 나올 때마다 그 자리에 전체 범위에서 그 사람의 이름이 나오는 횟수를 분모로, 1을 분자로 한 값을 배정하여, 나중에 그 모든 숫자를 합하는 것입니다. 간단한 예를 들어서, 다음과 같이 이름이 6개가 배열되어 있다고 합시다. 홍길동,장길산,홍길동,홍길동,홍길동,장길산 그럼 이름 대신에 그 자리에 다음 숫자를 배당합니다. 0.25, 0.5, 0.25, 0.25, 0.25, 0.5 홍길동은 총 4번 나오니 1/4해서 0.25를 홍길동이 나오는 자리마다 배정합니다. 장길산은 총 2번 나오니 1/2해서 0.5를 장길산이 나오는 자리마다 배정합니다. 이제 모든 숫자를 더하면 0.25+ 0.5+ 0.25+ 0.25+ 0.25+ 0.5 = 2  그래서 중복된 이름을 제외하고 모두 2명의 이름이 있다는 결과가 나옵니다. 이제 수식을 살펴보겠습니다. =SUMPRODUCT((A1:D2<>"")/(1-(A1:D2<>"")+COUNTIF(A1:D2,A1:D2))) (엑셀에서 수식-수식분석-수식계산을 하시면 단계별로 수식이 어떻게 계산되는지 볼 수 있으므로 수식을 이해하는데 도움이 됩니다.  밑줄이 쳐진 부분은 이번 단계에서 계산이 될 예정이라는 것을 의미하고 이탤릭으로 표시된 부분은 바로 이전 단계에서 계산이 된 결과라는 것을 보여줍니다) 이 부분은 A1:D2 범위에서 공백이 아닌, 즉 이름이 있는 셀을 골라내는 것입니다. 그래서 이름이 들어있으면 TRUE, 공백이면 FALSE
자세한 내용 보기

1일1함수 (12) sumproduct함수 - 동점일때 다른 기준으로 순위매기기

이미지
오늘은 SUMPRODUCT함수를 다룹니다. SUMPRODUCT함수는 매우 다양한 문제의 해결을 위해 광범위하게 응용될 수 있는 함수입니다. 오늘은 석차를 낼때 사용하는 예를 들어 설명해 보겠습니다. 주어진 배열에서 해당 요소를 모두 곱하고 그 곱의 합계를 반환합니다. 구문 SUMPRODUCT ( array1 ,array2,array3, ...) array1, array2, array3, ...   곱한 후 더할 값이 들어 있는 배열을 지정합니다. 2개에서 255개 사이의 배열을 사용할 수 있습니다. 주의 인수로 사용하는 배열의 차원은 모두 같아야 합니다. 차원이 같지 않으면 #VALUE! 오류 값이 반환됩니다. 숫자가 아닌 배열 항목은 0으로 처리됩니다. SUMPRODUCT함수는 다음에 이야기하게 될 "배열함수"와 깊은 관련이 있습니다. 영어로는 ARRAY인데, 학교 다닐때 "행렬"이라는 이름으로 배운 기억이 있는데 엑셀에서는 "배열"이라는 표현을 씁니다. 배열로 수식을 작성하는 것은 저도 아직 정확하게 이해는 하지 못했지만, 대충 감은 잡고 있는데, 그 감을 잡는데 이 SUMPROCUT함수가 도움이 되었습니다. 이 함수는 위에 있는 설명에도 있듯이, 주어진 배열을 모두 곱한 뒤에 그 합계를 반환하는 함수입니다. (2,4) 라는 배열과 (3,5) 라는 배열이 있을때, SUMPRODUCT({2,4},{3,5})라고 하면 2*3 + 4*5 를 계산하여 26을 반환합니다. 같은 식을 다음과 같이 표현할 수도 있습니다. A1:A2 의 배열과 B1:B2의 배열이 * (논리곱)으로 연결되어있습니다. 이때의 계산식은 위에서 설명한 것과 같이, 2*3 + 4*5 입니다. 그런데, 다음처럼 + (논리합)으로 연결되면 (2+3) * (4+5) 를 계산하여 14를 반환합니다. 여기까지 SUMPRODUCT함수의 기본적인 설명이
자세한 내용 보기

한 폴더 안의 모든 파일에서 특정 시트 복사해오는 vba

네이버 지식인에서    큰형(ks_1862)님의 답변 중 참고하였습니다. D:\TEMP 라는 폴더 안에 있는 모든 XLSX 확장자를 가진 엑셀파일에서 "통계"라는 이름을 가진 시트를 복사해옵니다. Option Explicit Sub MergeWBs() Dim wbDst As Workbook Dim wbSrc As Workbook Dim wsSrc As Worksheet Dim MyPath As String Dim strFilename As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "D:\temp" Set wbDst = ThisWorkbook strFilename = Dir(MyPath & "\*.xlsx", vbNormal) If Len(strFilename) = 0 Then Exit Sub Do Until strFilename = "" Set wbSrc = Workbooks.Open(Filename:=MyPath & "\" & strFilename) Set wsSrc = wbSrc.Worksheets("통계") wsSrc.Copy after:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir() Loop wbDst.Worksheets(1).Delete Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub 2017.2.16 몇가지 기능을 추가한 버전입니다 1. '통계&
자세한 내용 보기