안녕 누구
추가 형식에서 XNUMX을 제외한 최소 기능을 사용하고 값을 강조 표시해야 하지만 할 수 없습니다.(
제 문제를 해결하도록 도와주세요.
감사.
추가 형식에서 XNUMX을 제외한 최소 기능을 사용하고 값을 강조 표시해야 하지만 할 수 없습니다.(
제 문제를 해결하도록 도와주세요.
감사.
섹션 No.12의 행 맨 위에 나와야 하는 셀 Q18:Q12의 최소값을 기반으로 D18:AH1 범위의 모든 데이터를 정렬하고 섹션 No.2와 같은 다른 섹션에서도 동일하게 정렬하고 싶습니다. No.712 및 또한이 정렬 후 행 섹션 상단에 최소 셀 Q가 나올 때 필요합니다. 배경에 노란색으로 표시되고 셀 "I"의 공급 업체 이름도 동일한 노란색 배경을 표시합니다.
Sub ExtendOffice_Sort()
Dim xExtendRg, xOfficeSRgC As Range
Dim xRg As Range
Dim xRangeAddress As String
Dim xNum, xCSNum, xCENum, xRSNum, xRSNum2, xRENum As Integer
Dim xRCount As Integer
Dim xBol, xBolWS As Boolean
Dim xStr1, xStr2 As String
Dim xWSh As Worksheet
Dim xSortColumn As Integer
On Error Resume Next
Set xExtendRg = Application.InputBox("Please select the range with data to be sorted:", "ExtendOffice - Kutools for Excel", , , , , , 8)
If xExtendRg Is Nothing Then Exit Sub
Set xOfficeSRgC = Application.InputBox("Please select the column with values to be sorted from smallest to largest:", "ExtendOffice - Kutools for Excel", , , , , , 8)
If xOfficeSRgC Is Nothing Then Exit Sub
xNum = Application.InputBox("Please enter a number of rows to be sorted in a section:", "ExtendOffice - Kutools for Excel", , , , , , 1)
Set xRg = xExtendRg
Set xWSh = xRg.Worksheet
xWSh.Activate
xSortColumn = xOfficeSRgC.Column
xRCount = xRg.Rows.Count
xCSNum = xRg.Column
xCENum = xCSNum + xRg.Columns.Count - 1
xRSNum = xRg.Row
xRENum = xRSNum + xRCount - 1
xRSNum2 = xRSNum
xRSNum = (xRSNum + xNum) - 1
xBol = True
xBolWS = Application.ScreenUpdating
Application.ScreenUpdating = False
Do While xBol
xStr1 = xWSh.Cells(xRSNum2, xCSNum).Address & ":" & xWSh.Cells(xRSNum, xCENum).Address
xStr2 = xWSh.Cells(xRSNum2, xSortColumn).Address & ":" & xWSh.Cells(xRSNum, xSortColumn).Address
'Debug.Print xStr1 & " - " & xStr2
xWSh.Sort.SortFields.Clear
xWSh.Sort.SortFields.Add Key:=Range(xStr2) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With xWSh.Sort
.SetRange Range(xStr1)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
xWSh.Sort.SortFields.Clear
If (xRSNum + xNum) >= xRENum Then
If xRSNum = xRENum Then
xBol = False
Else
xRSNum2 = xRSNum + 1
xRSNum = xRENum
End If
Else
xRSNum2 = xRSNum + 1
xRSNum = (xRSNum + xNum)
End If
Loop
Application.ScreenUpdating = xBolWS
End Sub
이제 내 테이블에서 약 712번 실행하고 매번 데이터 조각을 선택해야 합니다.
안녕 친애하는 아만다
내 요청을 읽어준 탱크와 친절한 답변에 감사드립니다.
5000개 이상의 데이터 행이 있는 테이블이 있습니다...
이 표에서 각 7~11행에는 A열의 셀을 병합한 단일 숫자가 있습니다!
1개의 행 번호가 있는 각 부품에는 하나의 품목에 대한 여러 공급업체의 데이터가 포함되어 있으며 각 부품마다 고유한 가격이 있으며 내가 필요한 것은 각 섹션의 날짜를 행 섹션 맨 위에 있는 모든 공급업체의 더 낮은 가격으로 정렬하는 것입니다😊
보시다시피 2가지 요청이 있습니다.
1: 내 데이터의 각 부분에 있는 데이터를 해당 섹션에서 가장 낮은 가격으로 정렬,
2: 첫 번째 행에서 가장 낮은 가격을 강조 표시합니다.
어제 두 번째 요청을 해결했지만 첫 번째 요청에 대한 답변을 찾지 못했습니다.
제 문제를 해결해 주시면 감사하겠습니다. :)
불행히도 내 테이블의 이미지를 업로드할 수 없습니다:(