Dim lastCol1 As Long, yp As Long lastCol1 = Cells(1, Columns.count).End(xlToLeft).Column yp = ThisWorkbook.Sheets("も羥笲︽丁").Range("a999999").End(xlUp).Row ThisWorkbook.Sheets("も羥笲︽丁").Activate ThisWorkbook.Sheets("も羥笲︽丁").Range("d2", Cells(4, lastCol1), Cells(yp, lastCol1)).AutoFill Destination:=ThisWorkbook.Sheets("も羥笲︽丁").Range("d2", Cells(yp, lastCol1))這句還是報錯重新修改

请检查以下几点：

1. 代码中的Sheet名称“も羥笲︽丁”是否正确，需要确认该Sheet名称是否真实存在。

2. 在AutoFill函数中，Destination参数需要传递一个Range对象，而你传递的可能不是一个Range对象，建议将其修改为：Destination:=ThisWorkbook.Sheets("も羥笲︽丁").Range("d2").Resize(yp - 1, lastCol1 - 3)。

修改后的代码如下：

Dim lastCol1 As Long, yp As Long
lastCol1 = Cells(1, Columns.Count).End(xlToLeft).Column
yp = ThisWorkbook.Sheets("も羥笲︽丁").Range("a999999").End(xlUp).Row
ThisWorkbook.Sheets("も羥笲︽丁").Range("d2", Cells(4, lastCol1), Cells(yp, lastCol1)).AutoFill Destination:=ThisWorkbook.Sheets("も羥笲︽丁").Range("d2").Resize(yp - 1, lastCol1 - 3)

相关问题

Dim yp lastCol = Cells(1, Columns.count).End(xlToLeft).Column yp = ThisWorkbook.Sheets("も羥笲︽丁").Range("a999999").End(xlUp).Row ThisWorkbook.Sheets("も羥笲︽丁").Activate ThisWorkbook.Sheets("も羥笲︽丁").Range("d2", Cells(4, lastCol)).AutoFill Destination:=ThisWorkbook.Sheets("方").Range("d2", Cells(4, lastCol) & yp)這個報錯了怎麽修改

这段代码有两个问题：

1. 第一行的变量定义中，应该使用逗号而不是空格来分隔多个变量。应该修改为：

Dim lastCol As Long, yp As Long

2. 最后一行的 Cells 函数中，应该将多个参数用逗号分隔而不是使用 & 符号连接。应该修改为：

ThisWorkbook.Sheets("方").Range("d2", Cells(4, lastCol), Cells(yp, lastCol)).AutoFill Destination:=ThisWorkbook.Sheets("も羥笲︽丁").Range("d2", Cells(yp, lastCol))

修改后的完整代码如下：

Dim lastCol As Long, yp As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
yp = ThisWorkbook.Sheets("も羥笲︽丁").Range("a999999").End(xlUp).Row
ThisWorkbook.Sheets("も羥笲︽丁").Activate
ThisWorkbook.Sheets("方").Range("d2", Cells(4, lastCol), Cells(yp, lastCol)).AutoFill Destination:=ThisWorkbook.Sheets("も羥笲︽丁").Range("d2", Cells(yp, lastCol))

Excel表第一行为2-14行的和，第2-14行数据固定，A列为标题列，现需要用3-14行的数据依次减第二行的数，直到减完为止；例如原始数据B2=9,B3:B14=5,2,1,5,0,0,0,0,0,0,0,0,要使其输出为B2=9，B3:B14=0,0,0,4,0,0,0,0,0,0,0,0；共300列数据，需用Vba实现此操作

您可以尝试使用以下的VBA代码来实现您的需求：

Sub SubtractRows()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将Sheet1替换为您的工作表名称
    
    Dim lastCol As Integer
    lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
    
    '将第2行数据存储在一个数组中
    Dim arr() As Variant
    arr = ws.Range("B2:B14").Value
    
    '循环处理每一列数据
    Dim i As Integer
    For i = 2 To lastCol
        '将第3~14行数据存储在一个数组中
        Dim data() As Variant
        data = ws.Range(ws.Cells(3, i), ws.Cells(14, i)).Value
        
        '逐行减去第二行的数据
        Dim j As Integer
        For j = 1 To UBound(data)
            data(j, 1) = data(j, 1) - arr(j, 1)
            If data(j, 1) < 0 Then data(j, 1) = 0 '确保结果不为负数
        Next j
        
        '将结果写回工作表
        ws.Range(ws.Cells(3, i), ws.Cells(14, i)).Value = data
    Next i
End Sub

这段代码会循环处理工作表中的每一列数据，将第二行的数据存储在一个数组中，然后逐行减去第二行的数据，确保结果不为负数，最后将结果写回工作表。请注意，此代码假设您的工作表中只有一个表格，且第一行数据的范围是B1到最后一列。如果您的工作表中有多个表格或者范围不同，请修改代码以适应您的需求。