กรุ๊ปคำที่ความหมายเดียวกันแต่เขียนหลายรูปแบบ ให้กลายเป็นคำเดียว

[pipi]

อยากจะกรุ๊ปคำที่เขียนไม่เหมือนกันให้กลายเป็นคำเดียวค่ะ

เช่น ใน Column U มีคำที่เขียนว่า "คอยเย็น" , "คอยล์เย็น" , "คอยลเย็น" , "คอลย์เย็น"
ฉันต้องการให้ Run Macro แล้ว Excel สร้าง Columnใหม่ที่ ER แล้วเปลี่ยนคำพวกนั้นให้เป็นคำเดียวที่ถูกต้อง คือ "คอยล์เย็น" ค่ะ และก็อยากให้เอาไปใช้ได้กับไฟล์อื่นค่ะ ซึ่งไฟล์อื่นมีตำแหน่ง Column เหมือนเดิม แต่มีจำนวน Row ไม่เท่าเดิมค่ะ

ฉันลองเขียนโดยใช้ If + Or + Then แล้วไม่ได้ค่ะ

นอกจากนั้น คือ ใน Column U มีคำอื่นๆนอกเหนือจาก "คอยล์เย็น" ค่ะ ต้องการให้ คำนอกเหนือจากที่ใส่เงื่อนไขไว้ แสดงเป็นคำเดิมค่ะ รึไม่ก็ แสดงเป็นช่องว่างเลยค่ะ ขอบคุณมากค่ะ

__________________________________________________________
Sub Group()

lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

Range("ER1").Value = "InteractServiceName (Edited)"

If Range("W2" & lr).Value = "OPENTYPE" And ((Range("U2" & lr).Value = "คอยเย็น" Or Range("U2" & lr).Value = "คอยล์เย็น" Or Range("U2" & lr).Value = "คอยลเย็น" Or Range("U2" & lr).Value = "คอลย์เย็น")) Then Range("ER2" & lr).Value = "คอยล์เย็น"

End Sub





//ขออภัยนะคะ หากอธิบายคำถามงง และขอขอบบคุณอีกครั้งค่ะ

[Xcelvba]

เรียนสมาชิก รบกวนแนบไฟล์ที่เป็นปัญหามาด้วยครับ จะได้ง่ายต่อการตอบคำถาม ของเพื่อนสมาชิก
ตัดเอาเฉพาะ ส่วนที่จำเป็นมาครับ

[pipi]

เรียนสมาชิก รบกวนแนบไฟล์ที่เป็นปัญหามาด้วยครับ จะได้ง่ายต่อการตอบคำถาม ของเพื่อนสมาชิก
ตัดเอาเฉพาะ ส่วนที่จำเป็นมาครับ

โอเคค่ะ เพิ่มไฟล์แก้ไขโพสเรียบร้อยแล้วค่ะ ขอบคุณที่ช่วยชี้แจงนะคะ

[snasui]

อยากจะกรุ๊ปคำที่เขียนไม่เหมือนกันให้กลายเป็นคำเดียวค่ะ

เช่น ใน Column U มีคำที่เขียนว่า "คอยเย็น" , "คอยล์เย็น" , "คอยลเย็น" , "คอลย์เย็น"
ฉันต้องการให้ Run Macro แล้ว Excel สร้าง Columnใหม่ที่ ER แล้วเปลี่ยนคำพวกนั้นให้เป็นคำเดียวที่ถูกต้อง คือ "คอยล์เย็น" ค่ะ และก็อยากให้เอาไปใช้ได้กับไฟล์อื่นค่ะ ซึ่งไฟล์อื่นมีตำแหน่ง Column เหมือนเดิม แต่มีจำนวน Row ไม่เท่าเดิมค่ะ

การโพสต์ Code จะต้องกำหนดรูปแบบตัวอักษรให้เป็นแบบ Code ดูตัวอย่างในกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบ เพื่อจะได้สะดวกในการอ่านครับ

ตัวอย่าง Code ตามด้านล่าง ลองประยุกต์ใช้ดูครับ

Code: Select all

Sub Test0()
     Dim rall As Range
     Dim r As Range, l As Long
     With Worksheets("Sheet1")
         Set rall = .Range("b2", .Range("b" & .Rows.Count).End(xlUp))
         For Each r In rall
             If r.Value = "OPENTYPE" Or r.Value = "คอยเย็น" _
                 Or r.Value = "คอยล์เย็น" Or r.Value = "คอยลเย็น" _
                 Or r.Value = "คอลย์เย็น" Then
                 r.Offset(0, 1).Value = "คอยล์เย็น"
                 l = l + 1
             Else
                 r.Offset(0, 1).Value = r.Value
             End If
         Next r
     End With
     MsgBox "Found " & l & " item(s)."
End Sub