สวัสดีทุกคน
ฉันต้องใช้ฟังก์ชัน min ยกเว้น XNUMX ในรูปแบบเพิ่มเติมและเน้นค่า แต่ฉันไม่สามารถ :(
โปรดช่วยฉันแก้ปัญหาของฉัน
ขอบคุณ
ฉันต้องใช้ฟังก์ชัน min ยกเว้น XNUMX ในรูปแบบเพิ่มเติมและเน้นค่า แต่ฉันไม่สามารถ :(
โปรดช่วยฉันแก้ปัญหาของฉัน
ขอบคุณ
ฉันต้องการจัดเรียงข้อมูลทั้งหมดในช่วง D12:AH18 ตามค่าต่ำสุดในเซลล์ Q12:Q18 ที่ต้องออกมาที่ด้านบนของแถวในส่วนที่ 1 และอื่นๆ ในส่วนอื่น เช่น 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 ครั้งบนโต๊ะของฉันและเลือกข้อมูลแต่ละครั้ง
สวัสดีที่รัก Amanda
ถังที่อ่านคำขอของฉันและขอบคุณมากสำหรับการตอบกลับของคุณ
ฉันมีตารางที่มีข้อมูลมากกว่า 5000 แถว…
ในตารางนี้ แต่ละแถว 7 ถึง 11 มีตัวเลขเดียวที่รวมเซลล์ในคอลัมน์ A!
แต่ละส่วนที่มีหมายเลขแถว 1 แถวประกอบด้วยข้อมูลของผู้ขายหลายรายเกี่ยวกับสินค้า XNUMX รายการซึ่งแต่ละรายการมีราคาของตัวเอง และสิ่งที่ฉันต้องการคือต้องมีวันที่ในแต่ละส่วนเพื่อจัดเรียงราคาที่ต่ำกว่าของผู้ขายรายใดรายหนึ่งที่ด้านบนของส่วนแถว😊
อย่างที่คุณเห็นฉันมี 2 คำขอ:
1: การเรียงลำดับข้อมูลในแต่ละส่วนของข้อมูลของฉันในส่วนของพวกเขาในราคาต่ำสุด
2:เน้นราคาต่ำสุดในแถวแรก
ฉันแก้ไขคำขอที่สองของฉันแล้วเมื่อวานนี้ แต่ฉันไม่พบคำตอบสำหรับคำขอแรกของฉัน
ฉันจะขอบคุณถ้าคุณสามารถแก้ปัญหาของฉันได้ :)
น่าเสียดายที่ฉันไม่สามารถอัปโหลดรูปภาพของตารางของฉัน :(