处理合并单元格的一个VB问题
处理合并单元格的一个VB问题
Sub UnMerge() &
Dim StrMer As String &
Dim IntCot As Integer &
Dim i As Integer &
With Sheet4 &
For i = 2 To .Range(&B65536&).End(xlUp).Row &
StrMer = .Cells(i, 2).Value &
IntCot = .Cells(i, 2).MergeArea.Count &
.Cells(i, 2).UnMerge &
.Range(.Cells(i, 2), .Cells(i + IntCot - 1, 2)).Value = StrMer &
i = i + IntCot - 1 &
End WithEnd Sub代码解析：UnMerge过程取消工作表中B列中的合并单元格，并且各个单元格均保留原合并单元格的内容。第7行代码取得B列每个合并单元格的内容。第8行代码取得合并区域的单元格数量。第9行代码使用UnMerge方法取消合并单元格。UnMerge方法将合并区域分解为独立的单元格，语法如下：expression.UnMerge第10行代码将原合并单元格的内容赋值给取消合并单元格后的区域。第11行代码调整循环变量i的值，使下一次循环从下一个单元格区域开始。问题：我如果要对第C列操作，把&B65536& 改为&C65536&为什么失效？
昵称: darkdrog &时间:
昵称: cosmo_sei &时间:
昵称: linjimu &时间:
昵称: linjimu &时间:
昵称: cosmo_sei &时间:VB如何调用单元格当中的数字?_百度知道
VB如何调用单元格当中的数字?
&#92, 1) & &起始行！求解，我想调用把31这个数字改成调用的这一区域内的非空单元格的个数，
Set fso = CreateObject(&quot.txt&quot，第31行当中的行并不是固定数量;; 我想到导出的是5行到31行的数据.FileSystemObject& & Cells(i;S&quot.Path & &quot，则改成 3 to 100
MyFName = ThisWorkbook，如果是第三行到第一百行;)
With ActiveSheet
For i = 5 To 31 &#39如题
没明白你的意思..到底是要读取5行到31行的数据还是要读取这一区域内的非空单元格的个数?
从第5行到第31行中的非空单元格的个数！
其他类似问题
为您推荐：
单元格的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB如何判断从第一行第一列至第九行第九列的所有单元格里的数是不是满足条件:大于等于1小于等于9?_百度知道
VB如何判断从第一行第一列至第九行第九列的所有单元格里的数是不是满足条件:大于等于1小于等于9?
提问者采纳
&&=&nbsp：Private&End&&&j&&b&b&Then&不满足条件&0&&i&&&&As&&j&&&Dim&&data(1&nbsp,&Sub&&'And&&&0&Not&nbsp，实际操作中换成获取单元格值即可;&=&nbsp，很简单的操作;&=&&&&&MsgBox&&j)&&&To&&&&data(i,&=&Else&&For&1&9)&&&Dim&As&nbsp,&&&As&nbsp，以下是代码示例;&i&1&True&For&Integer&&&9;&&9&&b&9)&If&都满足条件&不都满足条件&&&&nbsp,&Dim&&To&nbsp。但都是采用遍历的方式来检查;&&&IMsgBox&nbsp。这里用二维数组来模拟;&&&To&Then&Next&&&(data(i;Next&j&j)&&&b&&Boolean&&nbsp、什么控件;If&&&&&=&As&&&1&&&&False&Integer&&&Form_Click()&To&&&&&&&&i&&&&=&If&&End&nbsp没说明是什么单元格
提问者评价
来自团队：
其他类似问题
为您推荐：
单元格的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB怎样提取excel里的最后一个写入单元格的行列
[问题点数：20分，结帖人gxw1444]
VB怎样提取excel里的最后一个写入单元格的行列
[问题点数：20分，结帖人gxw1444]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年1月 VB大版内专家分月排行榜第二2010年10月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第三2012年12月 VB大版内专家分月排行榜第三2011年6月 VB大版内专家分月排行榜第三2011年2月 VB大版内专家分月排行榜第三2010年12月 VB大版内专家分月排行榜第三2010年11月 VB大版内专家分月排行榜第三2009年7月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年5月 VB大版内专家分月排行榜第三2011年4月 VB大版内专家分月排行榜第三
2011年5月 VB大版内专家分月排行榜第三2011年4月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。excel vb 里面的语句与单元格的剪切_百度知道
excel vb 里面的语句与单元格的剪切
有时候，vb完成了后，而某些单元格要剪切位置，但其单元格的位置，比如 [A1]。。。。已经在VB引用了，剪切移动新位置后，比如A1剪切到B2，但VB中相应的A1引穿怠扁干壮妨憋施铂渐用没有跟随改变为B2，有时要花大量时间来检查，不能像EXCEL单元格公式那样，剪切后被引用的也自动跟随改变。
这个是难以避免的，我编的VB语句很多很长，几千行，不是一个小功能，EXCEL里面的界面也比较复杂，做到中途，为了界面更美观，为了更实用，必须把某些已经在VB中穿怠扁干壮妨憋施铂渐引用了的单元格移走，但VB中相应的单元格引用位置并不跟随移动变化，以至于花大量的时间来检查
提问者采纳
换一种思路解决问题嘛！为什么要用剪切哪？这样的操作 事实上 会比较慢哦……手工剪切掉单元格之后 引用它的公式还正常吗？如果 你穿怠扁干壮妨憋施铂渐要使用剪切的动作 你就录制一段这样的操作 代码 然后 用那些代码来完成 ……
您没理解，我补充了问题
哦 已经存在了的程序 由于你应用方式的限制 这样的事情是难免的的！确实没有太好的办法了……使用替换？如果使用R1C1的方式 可能会避免 或者是 使用另外一个 经过计算的 数据值 可能有时也可以灵活一些……你这个问题 基本上也就这样了 因为 代码本身 就是个文本格式的 并没有自动的关联性 除非我们使用了 关联变量………………本身代码文字之间是没有关联的……所以 你还是继续受累吧……呵呵祝你一切顺利！
提问者评价
thanks。没有关联性，就没办法了，只有受累了
其他类似问题
为您推荐：
其他1条回答
看你后来这个，你穿怠扁干壮妨憋施铂渐可以首先定义个变量=A1单元格，然后VB要里不要引用A1，一直用变量。以后要改只要将变量改为你需要的单元格即可。
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁