- 博客(9)
- 资源 (4)
- 收藏
- 关注
原创 单个查找关键字
Sub 单个查找关键字() ‘LookAt:= xlPart按模糊查找 Cells.Find(what:="关键", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=Fals...
2018-07-23 09:25:08 447
原创 查找列中关键字,然后删除该列!
Sub Find_Error() Dim rng As Range 'range=区域 Dim what As String 'String=字符串? what = "Error" ' 关键字 Error Do Set rng = ActiveSheet.UsedRange.Find(what) If rng Is Nothing Then Exi...
2018-07-23 09:22:54 399
原创 高亮关键字
Sub test() Dim r%, i% Dim arr, brr Dim reg As New RegExp With reg .Global = True .Pattern = "7" '关键字 End With With Worksheets("sheet1") r = .UsedRange.Find(what:="*", Lo...
2018-07-22 12:12:02 362
转载 文本分析--关键词获取(jieba分词器,TF-IDF模型)
# -*-coding:utf-8-*-#import uniout # 编码格式,解决中文输出乱码问题import jieba.analysefrom sklearn import feature_extractionfrom sklearn.feature_extraction.text import TfidfTransformerfrom sklearn.feature_extracti...
2018-07-14 09:58:59 1248
原创 高亮显示关键字
Sub 初始化() Dim Color_Num As Integer Word.Text = GetSetting("PUPNAME", "APPNAME", "高亮显示_查找的内容", "[输入关键字]") zt_B.Value = GetSetting("PUPNAME", "APPNAME", "高亮显示_字体加粗", True) zt_I.Value =
2018-07-13 20:22:34 720
转载 使用python3.6创建词云
import jieba.analysefrom PIL import Image, ImageSequenceimport numpy as npimport matplotlib.pyplot as pltfrom wordcloud import WordCloud, ImageColorGeneratorl = ''f = open('2.txt', 'r')for i in f: ...
2018-07-12 15:38:15 402
转载 中文分词jieba python 学习关键词
import jiebaimport jieba.analyseimport jieba.posseg as psegimport timefilename='2.txt'def file_jieba_wordcout(filename): file=open(filename,'r').read() file=jieba.cut(file) dict={} for wor...
2018-07-12 14:48:50 494
转载 Python 练习实例14 将一个正整数分解质因数
题目:将一个正整数分解质因数。例如:输入90,打印出90=2*3*3*5。x = int(input("是否进入循环?是:1, 否:0\n"))while(x): n = int(input("请输入一个正整数:")) print ("%d = " %n , end = '') while n not in [1]: for index in range(2, n+...
2018-07-11 06:25:42 4602
原创 Excel "定位条件"使用技巧(1)快速在空格,批量写入公式。
快速在空格,批量写入公式1:选择"空值"2:输入公式:3:关键一步:Ctal + Enter
2018-07-01 08:53:38 2271
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人