有没办法真真正正地让数字自动加上前缀？

shuyee

贴中有人提到连续复制2次,它使用的不是office的模块,而是windows的组件:剪贴板查看器.大部分人都默认装的.这个方法还有另一个很有名的用途.
个别有轻微变态的(嘿嘿,本人就是),不装这东西(瘦身啊),所以就用上.方法就是转到外部.

香川群子

帮助楼主整理一下本帖英雄榜：

这里要感谢：
8楼fovisio给我指明了方向；
【我觉得用公式或函数真的难以实现，期待高人出现！我建议使用辅助列，做字符合并】

13楼dengjq2000提供了结果；
【那你就只能增加一个辅助列通过公式来实现吧】

21楼titiantai56提供了我想要达到的结果；
【附件：这样行吗？】
经确认附件为VBA，核心代码：ActiveCell.Value = "K" & ActiveCell

到这里首次出现了VBA解决的附件，但当时楼主在24楼回复拒绝了VBA方法：
【如果真的非VB才能实现的话，因为VB我从来没用过，这方面的知识我也一点不懂。我也只有放弃了。
那么有没有用其它方法，就是我先把所有的没前缀的数据输入单元格，然后，用某种方法统一加上前缀，使得它们达到我想问题中想要的结果。】


31楼ctp_119的方法与指导；
也是VBA，核心代码：【str = Target.Value: Target.Value = "k" & str 】


37楼shuyee提供的别样的方法；
【如果不嫌烦的话,可以用替换,输入++,替换成k,这样当你录入++3,系统会换成k3.使用++号,位于小键盘,录入方便,并且不常用.其实你在引用的地方,加个k,是不是更简单呢.】



62楼lzqmsy的代码热忱奉献；
核心代码是一样的：【Target = "K" & Target】


但是雷人的楼主在66楼回复道：
【又是用到VB的……
偶不会用啊……
弱弱问这串代码弄到哪里去？

如果非得VB才能解决，暂时我也只有一个一个地输入了。日后抽时间学习一下VB……】


75楼smhf_6的合并方法（开扩了人思路），
【自定义是不行的，是虚假的，先2列，一列下拉，一列手输入，然后合并
至于用宏，则另当别论了】

雷人的楼主啊。这种方法就是辅助列方法哦……
别人直接说用辅助列被楼主【断然婉拒】，75楼绕个圈子说就被说成是开扩了思路而大加赞赏！


呵呵。





感谢这么多网友，感谢你们！

香川群子

不太客气地说，楼主的学习、理解能力是比较差的。

其实本帖各楼回帖的主，肯定都没有恶意，都是热忱来帮忙的。

但是很多人指出问题的实质以后，并不能被楼主理解，反而啰里啰嗦各种吐槽不好用……

但是雷人的楼主最后点名感谢的几位，他们所用或推荐的方法，无非是辅助列和VBA。
而各种VBA代码核心都是一样的。


呵呵。

为那些提供了完全相同的中肯意见，但却直接被楼主无视了的各层楼主鸣冤、
所有的楼主对其它楼主的态度的抱怨，其实都是楼主自己的无知和片面观点造成的。

香川群子

ngnndkkk 发表于 2013-3-4 23:29
楼上太多人对楼主意图不明却在笑楼主发的此贴，一味横加指责，甚至某些知名活跃人士也是一边倒地加以挖苦， ...

    With Selection
        .Value = .Text
    End With

代码思路确实是和前面各楼层提出过的VBA代码不同。

但应该说明有一个使用前提：
输入区域中必须事先定义好了自定义格式如 "K"0

然后才能够得到转换结果。

…………
但是这样一来，某种程度上又限制了VBA代码的使用。


既然都已经到了使用VBA的程度了，那么再去自定义单元格格式，显然是画蛇添足的麻烦事了。

因此，事实上如果是使用VBA方法的话，那么前面各楼层的代码要比你的方法更实用。

呵呵。

阿拉小麻花

foundking 发表于 2012-4-10 18:13
你说的公式不会是="K"&A2 吧……这个结果出来的值并不是真正的K4，也是显示的是K4，得到K4后，我别的地 ...

你可以在复制一下，在选择性粘贴数值啊。。。不就可以了么？？

香川群子

ngnndkkk 发表于 2013-3-4 23:29
楼上太多人对楼主意图不明却在笑楼主发的此贴，一味横加指责，甚至某些知名活跃人士也是一边倒地加以挖苦， ...

【楼上太多人对楼主意图不明却在笑楼主发的此贴，一味横加指责，甚至某些知名活跃人士也是一边倒地加以挖苦，叫人情何以堪！】

麻烦你不要那么随意下结论。

如果你从头到尾看了各楼回帖，
应该会知道，楼主被嘲笑是很正常的结果。

是因为别人提出的正确见解被楼主因为无知而否定，因为不理解而吐槽造成的。

你难道不清楚其实那些热心回帖的人早已因此而心灵受到了楼主的伤害么？

好心帮助人却被拒绝，拒绝的理由是那么地小白……
这就是楼主被人嘲笑和指责的原因。

【所谓指责，也不过是指出楼主的错误理解而已】


呵呵，我不知道你为何有如此立场。或许是觉得楼主被人嘲笑而觉得有些可怜吧。

但可怜和同情不能脱离事实吧。呵呵。


…………
另外，非常感谢你提供的代码的不同思路。在特定的场合会非常有用的。

不过，我刚才测试发现，只能对单元格逐个进行操作：
Activecell.Value =Activecell.Text

而
   With Selection
        .Value = .Text
    End With
这样的代码对于多行单元格并不能得到期望的结果。

请你确认你的代码是否符合要求，即能否同时处理多个单元格？
或者是因为我的做法有问题？

香川群子

ngnndkkk 发表于 2013-3-4 23:29
楼上太多人对楼主意图不明却在笑楼主发的此贴，一味横加指责，甚至某些知名活跃人士也是一边倒地加以挖苦， ...

用下面代码测试可知，.Text方法不能用于多单元格区域。

1. Sub test()
   
2.     arr = Selection.Value
   
3.     brr = Selection.Text
   
4.     t1 = ActiveCell.Value
   
5.     t2 = ActiveCell.Text
   
6.    
   
7. End Sub
   

复制代码

香川群子

zy6637 发表于 2012-4-11 15:40
放个头像很重要

一针见血……

ngnndkkk

香川群子 发表于 2013-3-5 10:15
用下面代码测试可知，.Text方法不能用于多单元格区域。

代码确实有缺陷，系调试时认为本题很简单，调试时的数据全部为同一个数字，所以没看出代码存在缺陷，现代码稍作修改如下：

1. 
   
2. Sub 粘贴成文本()
   
3.     Dim theCell As Range
   
4.     With Selection
   
5.         For Each theCell In Selection
   
6.             theCell.Value = theCell.Text
   
7.         Next theCell
   
8.     End With
   
9. End Sub
   

复制代码

香川群子

香川群子 发表于 2012-4-11 15:40
直接给楼主上个VBA应用实例附件。

里面说了简单用法了。

另外，如果说用到VBA方法，我在83楼提出的附件是最好的。没有第二。


但是被楼主无视了。（楼主不喜欢VBA以及不喜欢我发言的态度应该是原因）呵呵。