Snasui Excel Forum

:D ลองดูครับ

Sub test()

Dim objStream
Set objStream = CreateObject("ADODB.Stream")
Dim myRange As Range
Dim ce As Range

objStream.Charset = "UTF-8"
objStream.Open
objStream.SaveToFile "C:\Users\AccountName\Desktop\sample.txt", 2

Open "C:\Users\AccountName\Desktop\sample.txt" For ...

ถ้าColumn A เป็นรายชื่อพนักงาน และ Column B เป็นพนักงานที่เข้าอบรม
ลองใช้ Highlight ดูนะคะ (ลองวิธีง่ายๆ)

ให้ คลุม Column A,B
และไปที่ Home > Conditional Formatting > Highlight Cells Rules > Duplicate Values > มี popup ขึ้นมาก็ให้เลือกตรง values with
คะว่าต้องการสีอะไร แล้วตอบ OK

รายชื่อที่ซ้ำก ...

ได้ทำการเขียนสูตร ที่ Excel โดยกำหนดค่าที่ต้องการ Copy Cell ไว้ที่ช่อง A1 หากป้อนจำนวนแล้วสูตรจะวิ่งไป Copy Cell ให้ตามจำนวนที่ระบุ
และบันทึกออกมาเป็น Text file
แต่ติดปัญหาตรงที่ เมื่อเป็นภาษาไทยแล้วจะไม่แสดงเป็น UTF-8คะ
ต้องเปิด Text file และ save as Unicode เป็น UTF-8 อีกครั้ง

อยากทราบว่าจาก ...