Question

**我正在计算字符串，就好像一个单词出现了10次。然后那个单词在单元格a1中，计数在单元格a2 **中 - 我从代码生成这个...（SUM（（LEN（range_chk）-LEN（SUBSTITUTE（UPPER（range_chk），UPPER（Sheet2！E8）， “”）））/ LEN（Sheet2的！E8）））（我的数据在sheet1中，我在sheet2中找到单词.... FYI - range_chk是通过名称管理器在excel中使用的偏移函数---这段代码工作正常）

我已尝试worksheet_change(byval target as range)功能，但它已进入loop。请帮助代码。

我需要的是

我找到了一句话：在单元格A1：我

我正在计算：在A2单元格中：5

从上面切割细胞n将其粘贴在

中

细胞A7 - “我”细胞B7 ---“5”

接下来搜索的单词：“真的”计数3

切割n在细胞A8中粘贴 - “真的”细胞B8-- 3

下一步搜索单词：“sense”with count 6

在单元格A9中剪切n粘贴 - “感知”单元格B9 - 6 ....等等。

然后按照计数按升序对A7：B9的范围进行排序。

Answer 1

如果要使用Worksheet_Change方法，请执行此操作，它将停止循环：
它正在循环，因为运行代码时工作表上的其他内容会发生变化。

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False

    'Your code here

    Application.EnableEvents = True
end sub

Excel 2007 - VBA将粘贴值从一个单元格切换到另一个单元格下方

1 个答案: