가장 넓은 셀 내용 찾기 (Microsoft Excel)
Mary에는 각각 10,000-80,000 행 사이의 여러 스프레드 시트가 있습니다.
간혹 열이 예상보다 더 넓습니다. 콘텐츠로 인해 너비가 넓어지기 때문일 수 있습니다. 따라서 Mary는 10,000-80,000 행을 스크롤하지 않고도 가장 넓은 셀을 쉽게 찾을 수있는 방법이 있는지 궁금합니다.
이에 대해 여러 가지 방법이 있지만이 팁에서는 세 가지 방법 만 설명하겠습니다. 첫 번째는 워크 시트에서 도우미 열을 활용할 수있는 쉬운 방법입니다. 확인하려는 열이 A라고 가정합니다. 다음 수식을 사용하지 않는 열의 첫 번째 셀에 넣을 수 있습니다.
=LEN(TRIM(A1))
수식을 필요한만큼 셀 아래로 복사 한 다음 Excel의 필터링 기능을 사용하여 해당 열에서 가장 큰 값을 표시합니다. 이것은 당신이 원하는 세포를 줄 것입니다.
두 번째 수식 기반 방법은 다음과 같은 수식을 사용하는 것입니다.
=MIN(IF(LEN($A:$A)=MAX(LEN($A:$A)),ROW($A:$A),1048577)) =CELL("address",INDEX($A:$A,MATCH(MAX(LEN($A:$A)),LEN($A:$A),0)))
둘 다 Ctrl + Shift + Enter를 눌러 배열 수식으로 입력해야합니다. 첫 번째 수식은 가장 긴 길이를 가진 열 A에있는 셀의 행 번호를 반환합니다. 두 번째 수식은 길이가 가장 긴 셀의 실제 주소를 반환합니다.
세 번째 방법은 긴 길이를 꽤 규칙적으로 파악해야하는 경우에 좋습니다. 필요한 정보를 얻기 위해 매크로를 사용하는 것이 포함됩니다.
Sub FindWidestCells() Dim Ad(10) As String Dim Le(10) As Integer Dim J As Integer Dim K As Integer Dim L As Integer Dim lCols As Long Dim lRows As Long Dim Rng As Range Dim c As Range Dim sTemp As String lCols = ActiveCell.Column lRows = Cells(Rows.Count, lCols).End(xlUp).Row Set Rng = Range(Cells(1, lCols), Cells(lRows, lCols)) For Each c In Rng ' Find shortest length in the group K = 1 For J = 2 To 10 If Le(J) < Le(K) Then K = J Next J If Len(c.Text) > Le(K) Then Le(K) = Len(c.Text) Ad(K) = c.Address End If Next c ' Sort the cells For J = 1 To 9 L = J For K = J + 1 To 10 If Le(K) > Le(L) Then L = K Next K If L <> J Then sTemp = Ad(L) Ad(L) = Ad(J) Ad(J) = sTemp K = Le(L) Le(L) = Le(J) Le(J) = K End If Next J sTemp = "Longest cells:" & vbCr For J = 1 To 10 If Le(J) > 0 Then sTemp = sTemp & " " & Ad(J) & " (" & Le(J) & ")" & vbCr End If Next J MsgBox sTemp End Sub
확인하려는 열의 셀을 선택한 다음 매크로를 실행하기 만하면됩니다. 반환되는 것은 길이를 기준으로 내림차순으로 열에서 가장 넓은 10 개의 셀 목록입니다.
_ 참고 : _
이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.
link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요]
.
_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.
이 팁 (13747)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다.