VBA——基础代码

ActiveCell.Font.Bold = True

Application.ThisWorkbook.Sheets("Sheet1").Range("A1").Select

Range("A1").Select

Worksheets(1).Select
Worksheets("Mysheet").Select

Workbooks("MyData.xlsx").Worksheets("Mysheet").Select

Sheets("sheet1").Name = "Mysheet"

MsgBoxRange("A1").address(RowAbsolute:=True, Columnsolute:=True)

ActiveCell.Value =1

ActiveCell.ClearContents

Msg ActiveWorkbook.FullName

标签：Mysheet,VBA,代码,基础,A1,ActiveCell,Worksheets,True,Select
来源： https://blog.csdn.net/weixin_43213658/article/details/89033866