求问高手关于变量单元格到变量单元格

tock357

   Sheets(“总表”).Select
I2 = Application.WorksheetFunction.CountA(Range("C:C")) + 1
I3 = Application.WorksheetFunction.CountA(Range("O:O"))
Range("R" & I3 + 2).Select
    ActiveCell.FormulaR1C1 = "2"
    With Sheets(“总表”)
    Range("R" & I3 + 2).Select
    Selection.AutoFill Destination:=.Range(.cell(I3 + 2, 18), .cell(I2 + 1, 18)), Type:=xlFillDefault
    End With


就是要把“2”从 R这一列的   I3+2行，一直填充到I2+1行，这里存在两个变量，请问高手怎么写！！！！谢谢

约定的童话

有文件吗？上传附件看下

tock357

此为附件，请高手过目！！！

tock357

约定的童话 发表于 2019-4-9 16:33
有文件吗？上传附件看下

附件已上传，请高手过目！！！！！！！！

phsu

用複製就可以了。不需要用到填滿。除非有單元格參照的需要。
Sub test()
    Dim i2 As Integer
    Dim i3 As Integer
    i2 = Application.WorksheetFunction.CountA(Range("C:C")) + 1
    i3 = Application.WorksheetFunction.CountA(Range("O:O"))
    Range("R" & i3 + 2) = "2"
    Range("R" & i3 + 2).Copy Destination:=Range(Cells(i3 + 2, 18), Cells(i2 + 1, 18))
End Sub

约定的童话

参见教程，确认满意评分后上文件！谢谢！

tock357

phsu 发表于 2019-4-9 18:14
用複製就可以了。不需要用到填滿。除非有單元格參照的需要。
Sub test()
    Dim i2 As Integer

谢谢。。。。很好。。。如果我其他时候需要把它填充成123456这样的顺序的话，这种变量单元格得怎么写呢？

约定的童话

文件已上传，注意查收，内部参数自己改下，很简单的

tock357

约定的童话 发表于 2019-4-9 18:23
参见教程，确认满意评分后上文件！谢谢！

这位大神，我想知道你上面是怎么办到的，特别是那个钮，请指教！！！谢谢

约定的童话

tock357 发表于 2019-4-9 19:04
这位大神，我想知道你上面是怎么办到的，特别是那个钮，请指教！！！谢谢

里面有代码啊，你看一下，按钮是插入的