Sub 宏2()
For Each wsh In Sheets
wsh.Select
Range("P1").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-13],10)"
Range("P1").Select
Selection.AutoFill Destination:=Range("P:P"), Type:=xlFillDefault
Range("P:P").Select
Columns("F:F").Select
Selection.Copy
Range("Q1").Select
ActiveSheet.Paste
Next wsh
End Sub
VBA宏:批量处理工作表中的数据填充与复制
该VBA宏遍历工作簿中的每个工作表,将P1单元格设置公式,然后自动填充整列P,并复制F列数据到Q列。此过程自动化了Excel中的数据处理操作。
1万+

被折叠的 条评论
为什么被折叠?



