VBA代码调整，将ActiveSheet.Range（“A” & crr（i， 1））.调整大小（8， 50）.Copy Sheet24.Cells（n， “A”）中作用于当前活动工作表

你可以使用`ActiveWorkbook.ActiveSheet`来代替`ActiveSheet`，然后将`Sheet24.Cells(n, “A”)`修改为`ActiveWorkbook.ActiveSheet.Cells(n, "A")`，如下所示：

ActiveWorkbook.ActiveSheet.Range("A" & crr(i, 1)).Resize(8, 50).Copy ActiveWorkbook.ActiveSheet.Cells(n, "A")

这样，就可以将代码中的Sheet24作用于当前活动工作表了。

相关问题

ActiveSheet.Range("B6") = ""

这是一段 VBA 代码，它的作用是将 Excel 表格中 B6 单元格的值清空。具体来说，ActiveSheet 表示当前活动的工作表，Range("B6") 表示选中 B6 单元格，"=" 后面的空字符串表示将该单元格的值设置为空。这段代码可以用于清空某个单元格的值，或者在需要重置某个单元格的值时使用。

VBA 中Intersect(ActiveSheet.UsedRange, X) 如何设置X为B列非空单元格

您可以用以下代码来设置X为B列非空单元格：

Set X = Intersect(ActiveSheet.UsedRange, Range("B:B").SpecialCells(xlCellTypeConstants))

这样会将B列中非空的单元格赋值给X，然后与ActiveSheet中已使用的单元格范围取交集，得到最终的结果。