Bạn có thể làm theo các bước sau
Chọn ô cần đặt valid
chọn Menu: Data -> Validatio... => Chọn cửa sổ Setting.
Trong ô: Allow chọn List
Trong ô Source chọn danh sách cần xổ xuống
Bấm OK là xong
Ý mình là phần xổ xuống bị trùng ấy bạn ạ, mà mình ko mún trùng như thế![]()
Thông thường, phương pháp dể nhất là dùng Advanced Filter để lọc dử liệu gốc thành 1 danh sách duy nhất, sau đó sẽ dùng danh sách duy nhất này làm Validation listChào cả nhà , cho e hỏi về cách làm Valid theo yêu cầu file đính kèm nha
Thanks![]()
Sub CreateValidattion()
Dim Temp As String, i As Long
On Error Resume Next
With Application.InputBox("Chon vung du lieu", Type:=8)
For i = 1 To .Resize(, 1).Count
If WorksheetFunction.Match(.Cells(i), .Cells, 0) = i Then
Temp = Temp & "," & .Cells(i)
End If
Next i
End With
Temp = Mid(Temp, 2, Len(Temp))
With ActiveCell.Validation
.Delete
.Add Type:=3, Formula1:=Temp
End With
End Sub