VBA求助，要求对象-excel宏对象,excel如何使用宏

你的这段代码copy是没有错的；
但是
你的代码要放在 sheet名字为“百bayujiaozi” 中，度且这个表是你放内容的表，
而你要复制的内容应该在Sheet1中，注意，这个问Sheet1是表对象，不是答表的名称；表的名称是可以重命名的，而这个Sheet1是不能改的，
Sub LastRow()
For i = 1 To 38
Worksheets("bayujiaozi").Cells(i, "A").Value = Sheet2.Cells(i * 8, "G").Value
Next i
End Sub

明显的这两句有制问题
Set LotID = Right(AK.Sheets(1).[A1].Value, 10)
Set GlassID = Right(AK.Sheets(1).[A2].Value, 1)
Right函数是返回字符百数据类型的，Set 语句是将对象引用赋给度变量或属性。知这样字符数据类型怎么能当对象引用来道用呢，所以会出错。 改正就是把这两句的Set删掉
少了个右括号
If Application.worksheetfunction.countif(sheet2.range("e:e"),worksheets(i).cell(m,5))<1 then j=m

Sub test()
Dim rng As Range
Set rng = Application.InputBox("请选抄择需要复制的区域", "提示选择", , , , , , 8)
rng.Copy
activesheet. Range("c4,c14").select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

这里面需要注意在选择要复制的区域时不要百选择与Range("c4,c14")有重叠的区域，否度则程序会出错。