Snasui Excel Forum

ขณะทำก็ศึกษาในเว็บต่างๆไป ค่ะ
สิ่งที่ต้องการคือการสุ่มเลือกพนักงานแล้วคัดคนที่ได้แล้วออกค่ะ ซึ่งข้อมุลที่แสดงก็ตามไฟล์แนบด้านบนค่ะค่ะ
สิ่งที่อยากได้เพิ่มคือให้คัดออกแล้วบันทึกไว้เซลล์ด้านข้างค่ะ

พอดีมือใหม่ค่ะ

ไม่เคยทำเลย ด้านล่างนี้ได้จากการบันทึกแมโครค่ะ ไม่ได้สร้าง VBA เพราะทำไม่เป็นค่ะ

Sub Randome()
'
' Randome ?????
'
' Keyboard Shortcut: Ctrl+t
'
Range("B4").Select
ActiveCell.FormulaR1C1 = "=NAME!R[2]C[7]"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=NAME!R[2]C[7]"
Range("D4 ...

พอดีลองทำตามที่ในกระทู้บอกค่ะ แต่มีการดัดแปลงข้อมูล มีการสุ่มแล้วได้ตามไฟล์แนบ
ซึ่งข้อมูลจริงประมาน 1000 คน
หากต้องการคัดออกต้องทำอย่างไรต่อค่ะ

หมายเหตุอยากให้ข้อมูลแสดงทั้งหมายเลข ชื่อ นามสกุล และตำแหน่ง