Excel 从下一个空行开始将列数据复制/粘贴到现有工作表(问题)
我有一个电子表格,其中有不同的列,每列由单个宏单独复制并粘贴到下一个空行开始的不同工作表中。这是完美的,正如预期的那样,但存在一个前所未有的问题: 列C是一个帐户名。D列是事务描述 列C从不包含空格。但是,列D有时在列的最后一个单元格上没有事务描述。下次应用宏时,它会将开始数据粘贴到D列中的下一个空单元格中,使其无法正确对齐,然后该列上向南的范围将偏移1个或多个单元格 我的问题是: 在D列的下一个空单元格上开始粘贴作业,但如果C列旁边有数据,则不开始粘贴作业 编辑: 以下是我当前使用的代码:Excel 从下一个空行开始将列数据复制/粘贴到现有工作表(问题),excel,vba,offset,paste,Excel,Vba,Offset,Paste,我有一个电子表格,其中有不同的列,每列由单个宏单独复制并粘贴到下一个空行开始的不同工作表中。这是完美的,正如预期的那样,但存在一个前所未有的问题: 列C是一个帐户名。D列是事务描述 列C从不包含空格。但是,列D有时在列的最后一个单元格上没有事务描述。下次应用宏时,它会将开始数据粘贴到D列中的下一个空单元格中,使其无法正确对齐,然后该列上向南的范围将偏移1个或多个单元格 我的问题是: 在D列的下一个空单元格上开始粘贴作业,但如果C列旁边有数据,则不开始粘贴作业 编辑: 以下是我当前使用的代码: `
`Sub SAMPLE_COPYOVER_BOA_G()
Sheets("BANK OF AMERICA").Select
Rows("6:6").Select
Selection.AutoFilter
ActiveSheet.Range("$A$6:$T$1000").AutoFilter Field:=2, Criteria1:="<>"
Range("G7:G1000").Select
Selection.Copy
Sheets("COMBINED").Select
Sheets("COMBINED").Cells(Rows.Count, "C").End(xlUp).Offset(1). _
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("COMBINED").Select
End Sub`
`Sub-SAMPLE\u COPYOVER\u BOA\u G()
表格(“美国银行”)。选择
行(“6:6”)。选择
自动筛选
ActiveSheet.Range(“$A$6:$T$1000”)。自动筛选字段:=2,标准1:=“”
范围(“G7:G1000”)。选择
选择,复制
表格(“组合”)。选择
表(“组合”)。单元格(行数,“C”)。结束(xlUp)。偏移量(1)_
粘贴特殊粘贴:=xlPasteValues,操作:=xlNone_
SkipBlanks:=False,转置:=False
表格(“组合”)。选择
端接头`
这段代码工作正常,但问题是,当我转到D列的宏时,它将从下一个空行开始粘贴,而不管C列是长是短。如果需要帮助修复代码,最好将其包含在问题中。如果ColC从来没有空的空格,那么应该使用它来确定下一个粘贴行。