ฉันยังใหม่มากในการเขียนโปรแกรม ฉันมีความเข้าใจพื้นฐานเกี่ยวกับ Python เท่านั้น ไม่เคยแตะ VBA มาก่อนในสัปดาห์นี้ และไม่ค่อยได้ใช้ excel ฉันรู้ว่าฉันทำได้ไกลเกินกว่าจะเคี้ยวได้ แต่ฉันพยายามอย่างเต็มที่ที่จะเรียนรู้ ในสเปรดชีต excel ของฉัน ฉันมีคอลัมน์ E และในแต่ละเซลล์ ฉันมีสตริงสุ่มของ R, P หรือ S ฉันกำลังพยายามกรองผ่านแต่ละเซลล์ในคอลัมน์นี้ และสำหรับแต่ละเซลล์ ฉันกำลังพยายาม เพื่อระบุเวลา "R" เกิดขึ้นและพิมพ์อักขระถัดไปในเซลล์ที่แยกจากกัน เป้าหมายของฉันคือให้แต่ละเซลล์ในคอลัมน์ E มีเซลล์ที่สัมพันธ์กันในคอลัมน์ N เมื่อใดก็ตามที่โปรแกรมทำงาน จะไม่มีอะไรเกิดขึ้นในสเปรดชีตของฉัน

Dim j As Integer
Dim i As Integer
Dim nextr As String

Sub Rvalue(i As Integer, nextr As String, j As Integer, cell As Variant)
For Each cell In Range("E2:E87")
    For i = 1 To Len(Text)
        If Mid((E2), i, 1) = "R" Then
            j = i + 1
            nextr = nextr & Mid((E2), j, 1)
        End If
    ActiveCell.Value = nextr
    Next i
Next cell
End Sub
ไม่พบคำตอบ