Excel Forum

ทำได้แล้วครับ เปลี่ยนจากข้ามสีที่คั่นไว้ เป็นเติมสีทุกจำนวนเซลล์ที่กำหนดแทน

Sub FillCellsVertically()
Dim rng As Range
Dim cell As Range

' Define the range to check
Set rng = Range("A1:N20") ' Change this to your desired range

' Loop through each cell in the range
For Each cell In rng ...

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

https://img.imgy.org/1PNk.jpg

ตอนนี้ผมได้โค้ด VBA ให้มันเติมสีลงมาได้ครับ แต่มันไม่ข้ามสีส้มที่ใช้กั้นไว้ครับ มันทับสีส้มเลย
// โค้ดจาก AI ครับ ...