[已解决]请老师赐教,谢谢

hasyh2008

Private Sub CommandButton1_Click()
    Dim Y%
    For Y = 6 To 36
        If Application.CountA(Range(Cells(4, Y), Cells(30, Y))) = 0 Then
            Range(Cells(4, Y), Cells(30, Y)).value=Range("C4:C30").value: Exit Sub
        End If
    Next Y
End Sub

sam-wang

徐海洋 发表于 2022-6-9 22:48
谢谢高师指点,祝您和家人安康,万事如意,真诚的谢谢

老师,C列有公式,这代码把公式全 ...

C列有公式,这代码把公式全复制过来了,要复制成数值
>>如紅字，謝謝

Private Sub CommandButton1_Click()
C = Cells(4, 36).End(1).Column + 1
If C < 6 Then C = 6
Range("C4:C30").Copy
Cells(4, C).PasteSpecial xlPasteValues
End Sub

徐海洋

hasyh2008 发表于 2022-6-10 06:01
Private Sub CommandButton1_Click()
    Dim Y%
    For Y = 6 To 36

OK OK OK了,非常感谢您的赐教,行了,谢谢您的大爱,我文化低了,只有向您们请教,谢谢!!!祝身体健康,万事如意

徐海洋

sam-wang 发表于 2022-6-10 07:21
C列有公式,这代码把公式全复制过来了,要复制成数值
>>如紅字，謝謝

谢谢老师大爱,两位高师都这么高明,各式各样,结果一样,只恨自已当初没读好书,只有向老师请教了,谢谢,祝您身体健康,万事如意,