【来日复制粘贴】跨sheet的数据录入

效果：

录入Sheet2:

代码的含义需自己点明一下，方便日后用起来瞬间理解它的运行逻辑。

Sub haha()Dim lastRow As Long
Dim lstData As ListObject
Dim rngTitle As RangeSet lstData = Sheet2.ListObjects(1)lastRow = lstData.DataBodyRange.Rows.CountFor Each rngTitle In Union(Sheet1.Range("A4:A10"), Sheet1.Range("C7:C10"))      'rngTitle在这里被设定为两个含标题的竖列'下句中，在表对象对应列【listcolumns(rngTitle.Value）表示】的数据区域最后一行【Datbodyrange（lastrow)表示】相对位置向下偏移一行的单元格里赋予lstData.ListColumns(rngTitle.Value).DataBodyRange(lastRow).Offset(1, 0).Value = _rngTitle.Offset(0, 1).Value                                                 'rngTitle Range对象向右偏移一行的值。Next rngTitleEnd Sub

2015-03-22 22：21：

没错，这是篇比较2的文章。特意需要记录的原因是现阶段老是想不起来这个offset的用法和意义！

【来日复制粘贴】跨sheet的数据录入相关推荐

excel里面复制粘贴整个sheet
有时候需要在excel里面复制粘贴整个sheet,这个很简单的操作在百度上搜索到的结果有很多都是无效的,比如点击左上角行与列交汇处(下图红框),ctrl+c,再到目标excel文件下面新建一个shee ...
【来日复制粘贴】关于排名
图之, 1. 关于效率排名公式为 =SUMPRODUCT(1*(B2/C2<B$2:B$15/C$2:C$15))+1 2. 关于不占位业绩排名公式为 =SUMPRODUCT((B$2:B$ ...
【来日复制粘贴】状态栏随机显示
最近都在折腾别的,没有好好编程,不开心.今天凑巧看到一个我老是会磕绊的地方,特此记录.另外,整个这个程序当滚动条思路还是不错的. 大意就是收款时间那里为空的就是还欠账呢,然后可以让他的大名去状态栏滚动 ...
【来日复制粘贴】输出匹配到的字符串
目前用正则还是很少,用到的话一般也是replace那个函数.一直头疼我要输出找到的东西咋整?原来是用数组搞定.代码如下, Sub RegTest()'定义正则表达式对象Dim oRegExp As ...
【来日复制粘贴】使用公式提取数据
要求, 在以下表格中提取市场部人员的员工编号. 可用公式有两个,全部为数组公式 =IF(ROW(1:1)>COUNTIF(C$2:C$20,"市场部"),"&quo ...
【来日复制粘贴】提取工作表和工作簿名称
在过Excel 函数与公式的时候,看到一个可能以后在写vba时候能够使用的长公式.特此记录. 效果: 具体公式: =CELL("filename",$A$1) =MID(B2,FI ...
【来日复制粘贴】数据透视表分类不同账龄
大意就是有一些应收账数据,对应着具体日期,现在需要你把这些应收账分为:小于30天的账,31到60天的账,61到90天的账,最后是大于90天的账. 数据源接下来第一件事,把它做成数据透视表,如下图. ...
【来日复制粘贴】让PivotTable随数据源一起动起来
在不用刷新按钮的前提下,如何让pivot和数据源一起动起来呢?VBA之. 1. 首先要给数据源定义好名称,公式: =OFFSET(数据源!$A$1,,,COUNTA(数据源!$A:$A),COUNTA ...
【来日复制粘贴】用高级筛选和函数公式拆分数据列表
要求把表2里面不包含的项从表1取出,并建立一个新表. A25处的公式为 =ISNA(MATCH(A3,$F$3:$F$12,0)) ※须留意:因为例子里面的订单编号是唯一的所以用match没问题.m ...

【来日复制粘贴】跨sheet的数据录入

【来日复制粘贴】跨sheet的数据录入相关推荐

最新文章

热门文章