Excel 2007 – VBA从一个单元格粘贴到另一个单元格下的粘贴值
**我正在计算string，如果一个字出现10次。 那么这个单词是在单元格a1和计数是在单元格a2 ** – 我从代码生成这个…（SUM（（LEN（range_chk）-LEN（SUBSTITUTE（UPPER（range_chk），UPPER（Sheet2！E8）， “））））/ LEN（Sheet2！E8）））（我的数据在sheet1中，我在sheet2中find单词…. FYI – range_chk是通过名称pipe理器在excel中使用的偏移量函数—此代码工作正常）
我试过worksheet_change(byval target as range)函数，但它进入loop 。 请帮助代码。
我需要的是
我正在找单词：在单元格A1：我
我正在计数：在单元格A2：5
从细胞上面切下，贴在里面
单元格A7 – “我”单元格B7 —“5”
接下来搜查字：“真”与数3
剪下n粘贴在单元格A8 – “真的”单元格B8– 3
下一页search词：“sense”with count 6
剪切n粘贴单元格A9 – “感”单元格B9 – 6 ….等等。
然后根据计数按升序对A7：B9的范围进行sorting。
如果你想使用Worksheet_Change方法，这将停止循环：
这是循环的，因为在运行代码时，工作表上的另一件事情会发生变化。
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False 'Your code here Application.EnableEvents = True end sub