查看: 1492|回复: 8
阅读权限1UID598696函数0 关最后登录经验34 点在线时间10 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币24 个积分34精华0帖子日志注册时间
幼儿园小班, 积分 34, 距离下一级还需 66 积分
金币24 个积分34帖子
直接放在表格里老是会被人弄乱的。锁起来有时候复制过来的比较麻烦
可以帮忙加个IF进去提示无此信息，请检查
Sheet1表单里B1=VLOOKUP(A1,Sheet2!A:B,2,FALSE）这样直接写在B1不好看哈，有时候直接是复制过来的，公式被覆盖了，而且在后面弄乱了或被删了都不好，，我需要隐藏在后面自动识别。有点笨
阅读权限255UID98120函数0 关最后登录经验58806 点在线时间8031 小时VBA3 关分享记录好友技巧5 关相册主题段位5 段金币3513 个积分58943精华16帖子日志注册时间
你看不见我
金币3513 个积分58943帖子
不清楚题意，建议上传excel文件。
阅读权限1UID598696函数0 关最后登录经验34 点在线时间10 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币24 个积分34精华0帖子日志注册时间
幼儿园小班, 积分 34, 距离下一级还需 66 积分
金币24 个积分34帖子
爱疯 发表于
不清楚题意，建议上传excel文件。
16:02 上传
点击文件名下载附件
8.22 KB, 下载次数: 14
阅读权限255UID98120函数0 关最后登录经验58806 点在线时间8031 小时VBA3 关分享记录好友技巧5 关相册主题段位5 段金币3513 个积分58943精华16帖子日志注册时间
你看不见我
金币3513 个积分58943帖子
sheet1表中，B35单元格中的&无匹配&，是什么意思？
阅读权限255UID98120函数0 关最后登录经验58806 点在线时间8031 小时VBA3 关分享记录好友技巧5 关相册主题段位5 段金币3513 个积分58943精华16帖子日志注册时间
你看不见我
金币3513 个积分58943帖子
Sub test()
& & Dim d, A, i
& & Set d = CreateObject(&scripting.dictionary&)
& & A = Sheet2.Range(&a1&).CurrentRegion
& & For i = 1 To UBound(A)
& && &&&d(A(i, 1)) = A(i, 2)
& & Next i
& & A = Sheet1.Range(&A1:B& & Sheet1.Range(&a65536&).End(xlUp).Row)
& & For i = 1 To UBound(A)
& && &&&If d.exists(A(i, 1)) Then A(i, 2) = d(A(i, 1))
& & Next i
& & [a1].Resize(UBound(A), UBound(A, 2)) = A
(17.37 KB, 下载次数: 24)
16:15 上传
点击文件名下载附件
阅读权限1UID598696函数0 关最后登录经验34 点在线时间10 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币24 个积分34精华0帖子日志注册时间
幼儿园小班, 积分 34, 距离下一级还需 66 积分
金币24 个积分34帖子
爱疯 发表于
Sub test()
& & Dim d, A, i
& & Set d = CreateObject(&scripting.dictionary&)
老师你好：
我重新弄了一下，数据颠倒了一下，帮我重新写一下，不要按钮，直接出来
16:45 上传
点击文件名下载附件
8.83 KB, 下载次数: 6
阅读权限255UID98120函数0 关最后登录经验58806 点在线时间8031 小时VBA3 关分享记录好友技巧5 关相册主题段位5 段金币3513 个积分58943精华16帖子日志注册时间
你看不见我
金币3513 个积分58943帖子
(15.89 KB, 下载次数: 50)
16:52 上传
点击文件名下载附件
改为当该工作簿被打开时，自动执行。
阅读权限1UID598696函数0 关最后登录经验34 点在线时间10 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币24 个积分34精华0帖子日志注册时间
幼儿园小班, 积分 34, 距离下一级还需 66 积分
金币24 个积分34帖子
爱疯 发表于
改为当该工作簿被打开时，自动执行。
不能用呀，没反应呢
阅读权限255UID98120函数0 关最后登录经验58806 点在线时间8031 小时VBA3 关分享记录好友技巧5 关相册主题段位5 段金币3513 个积分58943精华16帖子日志注册时间
你看不见我
金币3513 个积分58943帖子
<font color="#0202631 发表于
不能用呀，没反应呢
你看到没反应，是因为已经执行过了
你看原来的有公式的单元格，不是已经变成值了么
最佳答案累计大于500
站长推荐 /1
上班路上，回家途中，晚上睡前，每天一篇excel原创教程，由浅入深，全面学习excel技巧、函数、图表和VBA编程。
Powered by君，已阅读到文档的结尾了呢~~
[精彩]下班族必看的电脑技能57196
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
[精彩]下班族必看的电脑技能57196
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口二次元同好交流新大陆
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
Sub Macro1()'' Macro1 Macro''& &Dim x As Integer& && & && &Sheets(1).Activate& & &x = Sheets(1).UsedRange.Rows.Count &' Sheets("sheet1").Range("A65536").End(xlUp).Row 'Range("a1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row 'ActiveSheet.UsedRange.Rows.Count& & Sheets(1).Range("B1").Select& & Selection.AutoFill Destination:=Range("B3:B" & x), Type:=xlFillDefault & & '自动填充A1：An& & 'ActiveCell.Range("B2:B" & Str(x) &") 'Range("B2:B26666")& & Range("B3:B" & x).SelectEnd SubSub Macro1()&& &Dim x As Integer& &Sheets(1).Activate& & &x = Sheets(1).UsedRange.Rows.Count& & Sheets(1).Range("B2").Select& & &Selection.AutoFill Destination:=Range("B2:B" & x)End Sub&Sub test()& & Dim n As Integer& &&& & & &Sheets(1).Activate& & n = Sheets(1).UsedRange.Rows.Count & & & & &'n统计sheet1中的行数& & Sheets(1).Range("B1").Select & & & & & & & & & & & & '选中sheet1的A1格子& & Selection.AutoFill Destination:=Sheets(1).Range("B1:B" & n & ""), Type:=xlFillDefault & &'自动填充A1：An&End SubSub zz()Dim lastrow As Integer& &lastrow = Range("A65536").End(xlUp).Row& & Range("B1:C1").Select& & Selection.AutoFill Destination:=Range("B2:C" & lastrow)End SubSub test()& & Dim n As Integer& &&& & & &Sheets(1).Activate& & n = Sheets(1).UsedRange.Rows.Count & & & & &'n统计sheet1中的行数& & Sheets(1).Range("B1").Select & & & & & & & & & & & & '选中sheet1的A1格子& & Selection.AutoFill Destination:=Sheets(1).Range("B1:B" & n & ""), Type:=xlFillDefault & &'自动填充A1：An& Sheets(1).Range("A1:A" & n & "").Select & & & &'选中sheet1的A1：An& & Application.CutCopyMode = False& Selection.Copy & & & & & & & & & & & & & & & & & & & & & & & ' 复制选中的sheet1的A1：An& & Sheets(2).Select & & & & & & & & & & & & & & & & & & & & & &'选中sheet2& & Sheets(2).Range("A1").Select & & & & & & & & & & & &'选中sheet2内的A1& & Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _& & & & :=False, Transpose:=False& & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & '选择性粘贴End Sub
阅读(1364)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
在LOFTER的更多文章
loftPermalink:'',
id:'fks_',
blogTitle:'Excel 中 vbA 获得有效行数的方法
excel自动填充如何用vba做',
blogAbstract:'& Excel 有 65536行 256列&&& 但是我们可能只用了其中的部分行。在实际情况下，我们做VBA编程的时候可能希望获得 实际使用的有效行数。&&& 下面是用 vba 获得 有效行数的方法：&&&&&& Range(\"a1\").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row&&& ActiveSheet.Range(\"A65536\").End(-4162).Row&&& ActiveSheet.UsedRange.Rows.Count',
blogTag:'',
blogUrl:'blog/static/5',
isPublished:1,
istop:false,
modifyTime:5,
publishTime:2,
permalink:'blog/static/5',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:true,
hostIntro:'',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}假设A1是数字7范围内,怎么用VBA实现B列生成7个变量求解决假设A1是数字7范围内,怎么用VBA实现B列生成7个变量,A1是6,B列生成6个变量数据,范围是1-7,这用VBA怎么写 就是A1 B1-B2我写 2 这里随机出现2个数我写3 B1-B3随机出现3个数依次到7,求代码
虚构TA0016
B列生成变量（数据）,这个不知道该怎样理解,如果是1~7的随机数字,代码如下,详见附件.Private&Sub&Worksheet_Change(ByVal&Target&As&Range)&&&If&Target.Address&&&&&$A$1&&Or&Target&&&7&Or&Target&&&1&Then&Exit&Sub&&&Application.EnableEvents&=&False&&&Range(&B1:B7&).ClearContents&&&For&i&=&1&To&Target&&&&&&Randomize&&&&&&Range(&B&&&&i)&=&Int(7&*&Rnd()&+&1)&&&Next&&&Application.EnableEvents&=&TrueEnd&Sub
为您推荐：
其他类似问题
扫描下载二维码