EXECL请老师帮我看下，这个该怎么解决呢 50
EXECL请老师帮我看下，这个该怎么解决呢如果基数例表的序号与参数发生变化的话，如何使统计表中的结果往右移一列呢？...
EXECL请老师帮我看下，这个该怎么解决呢如果基数例表的序号与参数发生变化的话，如何使统计表中的结果往右移一列呢？
展开
1个回答
展开全部
这个代码是只复制非空单元的，所以只复制P列有数字的2行。如果想复制10行，那得知道入库单号，在哪个单元格。以下代码，和上面代码功能相同。Sub 入库提交()Dim a As LongDim b As Longa = IIf(Sheets("入库单").[P14] = "", Sheets("入库单").[P14].End(xlUp).Row, 14)b = Sheets("数据库").[B65536].End(xlUp).Row + 1Sheets("数据库").Cells(b, 1).Resize(a - 5 + 1, 21).Value = Range("C5:W" & a).ValueRange("P5:P14").ClearContentsEnd Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
您可能需要的服务
百度律临官方认证律师咨询
平均3分钟响应
|
问题解决率99%
|
24小时在线
立即免费咨询律师
16764人正在获得一对一解答
呼和浩特草原之歌3分钟前提交了问题
杭州雪花飘飘5分钟前提交了问题
郑州都市传说6分钟前提交了问题
