Alt+F11,插入,模块 Function RemoveChinese(rng As Range) s = Len(rng.Text) For i = 1 To s txt = StrConv(Mid(rng.Text, i, 1), vbNarrow) txt2 = StrConv(Mid(rng.Text, i, 1), vbWide) If txt <> txt2 Then RemoveChinese = RemoveChinese & Mid(rng.Text, i, 1)
一需求:按照标题C的内容,一样的数据整理到一个文件中. 二.操作: 1.atl+F11弹出vb窗口 2.点击 插入===>模块 ,复制以下代码,注意这是一个表头为三行的函数(保存) Sub 保留表头拆分数据为若干新工作簿() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% '获取分割列的索引 c = Application.InputBox("刘刚:请输入拆分列号", &
1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表: 2.执行"工具→宏→Visual Basic编辑器"命令(或者直接按"Alt+F11"组合键),进入Visual Basic编辑状态: 3.执行"插入→模块"命令,插入一个新模块.再双击插入的模块,进入模块代码编辑状态: 4.将代码输入其中: 1 Function pinyin(p As String) As String 2 i = Asc(p) 3 Select Case