SELECT DISTINCT t1.field[1], t1.field[2]FROM ( SELECT t1.field[1], t1.field[2], ROW_NUMBER() OVER (PARTITION BY t1.field[1] ORDER BY t1.field[2]) as rn FROM in[1] t1) subWHERE rn = 1AND t1.field[1] != ''AND t1.field[2] != '';

SELECT cols.column_nameFROM all_constraints consJOIN all_cons_columns cols ON cons.constraint_name = cols.constraint_nameWHERE cons.constraint_type = 'P'AND cons.owner = 'MYSCHEMA'AND cols.table_name = 'EMPLOYEES';

Sub FilterByMultipleValues() Dim ws As Worksheet Dim filterRange As Range Dim criteriaRange As Range Dim criteriaArray() As String Dim i As Long ' フィルタをかけたいシートと範囲を設定 Set ws = ThisWorkbook.Sheets("Sheet1") ' フィルタをかけ…