Snasui Excel Forum

niwat2811 wrote:

Code: Select all

Sub test()
Dim lc As Long
Dim r As Range
lc = Cells(2, Columns.Count).End(xlToLeft).Column
With Sheets("Sheet1")
    For Each r In Range(Cells(2, 1), Cells(2, lc))
        If r = "D/0" Then
            r.Offset(1, 0).Resize(8, 1).Formula = "=$A$1+$B$1"
        End If
    Next r
End With
End Sub

แบบนี้ใช้ได้ไหมครับ

nattasiray wrote:

Code: Select all

Sub btnCopyPasteFormula_Click()

Dim lngColumnNum As Long, lngRound As Long, strColumn As String
'strColumn = IIf(Application.Version >= 12, "XFD", "IV")
'lngColumnNum = Range(strColumn & "2").End(xlToLeft).Column
lngColumnNum = Range("V2").End(xlToLeft).Column

Worksheets("Sheet1").Range("C1").Copy
For lngRound = 1 To lngColumnNum Step 2
    Range(Cells(3, lngRound), Cells(11, lngRound)).PasteSpecial xlPasteFormulas
Next lngRound
   
End Sub

nattasiray wrote:สอบถามเพิ่มเติม

1 คอลัมน์สุดท้ายเปลี่ยนแปลงตลอดทุกครั้งที่ข้อมูลเพิ่มหรือไม่
2 บรรทัดเริ่มต้นคงที่ ส่วนบรรทัดสุดท้ายไม่คงที่ใช่หรือไม่