小编ran*_*ano的帖子

我有一个大型电子表格,我想对特定列执行单词计数,以找出最常用的单词.此列包含大量数据和文本.

例如,"员工爬梯子从顶层货架上取回商品.梯子开始摇摆,员工失去平衡而跌倒.右腿受伤".这样有大约1000种不同的记录.我希望使用数据透视表来确定本专栏中所有单元格中最常用的单词.

我不知道该怎么做.任何人都可以协助如何做到这一点？

目前使用以下代码:

Option Explicit

Sub MakeWordList()
    Dim InputSheet As Worksheet
    Dim WordListSheet As Worksheet
    Dim PuncChars As Variant, x As Variant
    Dim i As Long, r As Long
    Dim txt As String
    Dim wordCnt As Long
    Dim AllWords As Range
    Dim PC As PivotCache
    Dim PT As PivotTable

    Application.ScreenUpdating = False
    Set InputSheet = ActiveSheet
    Set WordListSheet = Worksheets.Add(after:=Worksheets(Sheets.Count))
    WordListSheet.Range("A1") = "All Words"
    WordListSheet.Range("A1").Font.Bold = True
    InputSheet.Activate
    wordCnt = 2
    PuncChars = Array(".", ",", ";", ":", "'", "!", …

我想在运行宏时隐藏某些列.我该怎么做呢？

我知道如何通过一系列列("B:D")使用以下方法来实现:

Columns("B:D").EntireColumn.Hidden = True

但我不确定如何指定彼此不相邻的多个列.

我需要隐藏列:B,C,F,G,I,J,K,L,N.