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에 적용됩니다.