宏问题求助

亚戈888

要求在Sheet1中执行宏，字段在Sheet1、Sheet2、Sheet3......的A列最后一行的下一行填入内容或者粘贴公式（最后一行行号不固定）

宏1：

  Sheets("Sheet2").Select
    Dim ws As Worksheet
  Set ws = ActiveSheet
   ws.Range("A" & ws.Rows.Count).End(xlUp).Offset(1, 0).Select
   ActiveCell.FormulaR1C1 = "0K"
可以自动在Sheet2表A6单元格填入OK.


而宏2执行时报错，无法在Sheet2、Sheet3表中填入。
请求老师指教，错在哪里？应当如何修改，适用多个表的自动定位和填入。
注：不是所有工作表，是有选择性的部分工作表
不胜感激，谢谢！

无关岁月

ynzsvt

删除重复的定义行就好了。ws重复定义不可以。
All模块是给所有工作表的最后一行写入了。

亚戈888

ynzsvt 发表于 2024-8-20 07:51
删除重复的定义行就好了。ws重复定义不可以。
All模块是给所有工作表的最后一行写入了。

如果只对指定的工资表？咋办
下载的文件无法运行宏

wengjl

下载下来打开一看，就那么几个数字，要汇总成什么样子呢？

亚戈888

顶一下，请指教

ykcbf1100

    Set ws = ActiveSheet
    r = ws.Cells(Rows.Count, 1).End(3).Offset(1).Row
    ws.Cells(r, 1).FormulaR1C1 = "0K"

亚戈888

ykcbf1100 发表于 2024-8-25 13:31
Set ws = ActiveSheet
    r = ws.Cells(Rows.Count, 1).End(3).Offset(1).Row
    ws.Cells(r, 1).F ...

谢谢，问题解决了。
如何让光标停在OK的位置上？

ykcbf1100

亚戈888 发表于 2024-8-25 21:52
谢谢，问题解决了。
如何让光标停在OK的位置上？

ws.Cells(r, 1).Select

亚戈888

ykcbf1100 发表于 2024-8-26 07:25
ws.Cells(r, 1).Select

谢谢！！！