Excel中自动识别鼠标所在列,并把该列分列成文本宏代码

例如下图:鼠标放在A列点击运行自动分列成文本,依次类推。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells = "" Then
Exit Sub
Else
Selection.TextToColumns Destination:=Selection, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(i, 1)), TrailingMinusNumbers:=True
End If
End Sub

在工作表事件程序Worksheet_SelectionChange里写入上面代码。Array(i, 1)中的 i 为分列的第一列字符数,可自行改变。追问

还是不对哦


追答

直接粘贴到sheet1就行。这是工作表事件程序,不是工作簿的。

追问

结果还是一样的

温馨提示:内容为网友见解,仅供参考
无其他回答

Excel中自动识别鼠标所在列,并把该列分列成文本宏代码
在工作表事件程序Worksheet_SelectionChange里写入上面代码。Array(i, 1)中的 i 为分列的第一列字符数,可自行改变。

分列之后怎么把数据变成文本格式
1. 打开需要操作的Excel表格。2. 选中需要转换为文本格式的数据列,点击菜单栏中的“数据”选项卡,选择“分列”。3. 在分列向导第3步中,选择“文本格式”,然后点击“下一步”。4. 在分列向导第4步中,不需要做任何改动,直接点击“下一步”。5. 在分列向导第5步中,选择需要保存的位置,然后...

Excel数据怎么分列并转为文本格式?
1.打开“素材.xlsx”文件,选择A列,单击【数据】→【数据工具】组→【分列】按钮。2.打开【文本分列向导】对话框,选择【分隔符号】单选项,单击【下一步】按钮。3.在分列向导的第2步中选择【其他】复选框,在右侧文本框中输入“#”,在【数据预览】区域即可看到分列后的效果,单击【下一步】按钮...

在excel里,怎样快速把一列设置成文本格式?
1. 首先,打开你的Excel表格,并选中需要设置为文本格式的列。如示例图中所示,该列单元格当前并非文本格式,需双击A1单元格以改变格式。2. 接着,转至Excel的“数据”选项卡,点击“分列”。3. 在分列的第一个步骤中,选择“分隔符号”,然后点击“下一步”。4. 在分列的第二个步骤中,选择“Ta...

excel中如何自动由数字额格式变成文本格式怎样操作
可以将需要转化为文本格式的数字列全选,然后点击菜单中的“数据”功能,再点击“分列”。进入分列向导第一步,选择分割符号,然后进入下一步。进入第二步时,可以根据默认选择,直接进入下一步。进入分列向导第3步,在列数据格式中,选择“文本”,然后点击完成。这样原来数字已经成功转换成文本格式了。

如何把两列数据分列成一个文本格式
需要将分列后的两列的数据格式都设置为文本,具体方法如下:一、首先新建一个excel表格,输入分列前的例子【ab 0789】。二、选中需要进行分列的区域,然后在最上方的工具栏中点击【数据】,然后点击【分列】。三、在弹出的选项框中,选择【分隔符号】,然后点击【下一步】。四、在下一步的设置界面中...

Excel中如何批量将某列设置为文本格式
所需材料:Excel。一、如下图,该列单元格已经设置为显示为文本,双击A1单元格后才会改变格式,这时选中这列单元格。二、进入“数据”选项,点击“分列”。三、分列第一步勾选“分隔符号”,点击“下一步”。四、分列第二步勾选“Tab键”,点击“下一步”。五、分列最后一步勾选“文本”,点击“...

实现分列的两段excelvba分列代码
第一段excel vba 分列的代码:Sub vba分列()Dim oJs As Object, rng As Range Set oJs = CreateObject("ScriptControl"): oJs.Language = "JScript"oJs.eval "function gets(str){return str.replace(\/(\\d+)\/,’ $1 ‘)}"For Each rng In Range("A2", [A65536].End(3))rng(1, 2)...

如何将Excel中的数据按行或者按列分列导入到文本文件中?
实现如题所述操作的方法如下:如图所示,将TXT文本文件中的数据用空格或制表符按行列分隔开。如图所示,打开Excel工作表,切换至“数据”选项卡,单击“自文本”按钮,打开“导入文本文件”对话框,单击选取要导入的文本文件,单击“导入”按钮关闭对话框。如图所示,启动“文本导入向导”,“合适的文件类型...

excel中数据怎么变成文本格式
1、首先我们打开需要编辑的excel表格,点击打开“开始”。在弹出来的子菜单栏中点击打开数字中“常规”后面的倒三角形,选择“其他数字格式”。在弹出来的窗口中点击选择分类中的“文本”,回车确定即可。2、在Excel表的上面有很多的工具栏,我们找到数据这一工具栏选项,在数据这一选项中,我们找到分列这...

相似回答