求一代码：提取F列最后一行有数据的数据粘贴到F2单元格中

环境所迫

求一代码：提取F列最后一行（行数不固定）有数据的数据粘贴到F2单元格中

wj2368

sub yy()
[f2]=range("f"&range("f56556").end(3).row)
end sub

wj2368

sub yy()
[f2]= range("f"& range("f56556").end(3).row)
end sub

环境所迫

wj2368 发表于 2020-1-19 13:01
sub yy()
[f2]= range("f"& range("f56556").end(3).row)
end sub

谢谢，我试试看

环境所迫

sub yy()
[f2]= range("f"& range("f56556").end(3).row)
end sub
经测试为段代码不能完全达到要求，如果行数变化，就全部清空F列了

网海遨游

Sub test()
  r = Cells(Rows.Count, "f").End(3).Row
  Range("f" & r).Copy: [f2].PasteSpecial 12 '粘贴值
End Sub

环境所迫

网海遨游 发表于 2020-1-20 12:53
Sub test()
  r = Cells(Rows.Count, "f").End(3).Row
  Range("f" & r).Copy: [f2].PasteSpecial 12 '粘 ...

老师您好，好象还是不行，运行后清空了F列，我重新上传了附件，还麻烦老师在看看，谢谢了！！！

环境所迫

顶上去，别沉呀

WYS67

wj2368 发表于 2020-1-19 13:00
sub yy()
[f2]=range("f"&range("f56556").end(3).row)
end sub

跟着老师学习。

环境所迫

WYS67 发表于 2020-1-20 14:40
跟着老师学习。

这代码不对呀