excel求如何用宏实现删除指定列的指定字
现在有一个工资表，里面有一列就是实发工资，比如 3200元 这样子，这个工资表大概有一万多行，全部是xxxx元的格式，现在我想将这列的所有“元”字删除，并转换成数字或货币格式，以便最后合计工资总额。VBA和宏的新手，请大神指点该怎么编代码或录制宏，要求一键删除该列所有“元”字。
å¨ç¼è¾å¨ä¸æå ¥æ¨¡å
ç¶åå¨å³ä¾§åºç°ç模å代ç ç¼è¾åºå½å ¥ä¸ä¸ç¨åºä»£ç
Sub å»æå ()
表å = "sheet1"
å = "c" 'æ¤å¤åæ¯ä»£è¡¨ä½ è¦å»æå åçæ°æ®æå¨çå
å¼å§è¡ = 1 'æ¤å¤æ°åä»£è¡¨ä½ è¦å»æå åçæ°æ®å¼å§çè¡çè¡å·
ç»æè¡ = 100 'æ¤å¤æ°åä»£è¡¨ä½ è¦å»æå åçæ°æ®ç»æçè¡çè¡å·
For i = å¼å§è¡ To ç»æè¡
xxx = Worksheets(表å).Cells(i, å)
xxx = Left(xxx, Len(xxx) - Len("å "))
Worksheets(表å).Cells(i, å) = xxx
Next i
End Sub
å ³éå®ç¼è¾çªå£ï¼[ALT]+[F8]æå¼å®ç®¡ççªå£
ç¹å»é项æé®ï¼è¾å ¥å¿«æ·é®qï¼ç¶åæç¡®å®æé®
ä¹åç´æ¥æç»åé®[CTRL]+[q]ï¼å°±å¯ä»¥æ§è¡ç¨åºäºï¼ç¨åºä¸çå ·ä½åæ°æ ¹æ®ä½ çå ·ä½æ åµèªå·±ä¿®æ¹å§
Private Sub Deleteblankrow()
On Error Resume Next
Dim rowindex As Long, columnindex As Long
Dim ifblank As Boolean
Dim actioncount As Long
Application.ScreenUpdating = False
For rowindex = 1 To selection.Rows.Count
For columnindex = 1 To selection.Columns.Count
If selection.Cells(rowindex, columnindex) <> "" Then
ifblank = False
Exit For
Else
ifblank = True
End If
Next columnindex
If actioncount >= selection.Rows.Count Then
Exit For
Else
If ifblank = True Then
selection.Rows(rowindex).EntireRow.Delete
rowindex = rowindex - 1
actioncount = actioncount + 1
End If
End If
Next rowindex
Application.ScreenUpdating = True
MsgBox "Mission complete", vbOKOnly, "Deleteblankrow"
End Sub
excel求如何用宏实现删除指定列的指定字
打开表格文件，按组合键[ALT]+[F11]，打开宏编辑器 在编辑器中插入模块 然后在右侧出现的模块代码编辑区录入一下程序代码 Sub 去掉元()表名 = "sheet1"列 = "c" '此处字母代表你要去掉元字的数据所在的列 开始行 = 1 '此处数字代表你要去掉元字的数据开始的行的行号 结束行 = 100 ...
excel求如何用宏实现删除指定列的指定字
打开表格文件，按组合键[ALT]+[F11]，打开宏编辑器 在编辑器中插入模块 然后在右侧出现的模块代码编辑区录入一下程序代码 Sub 去掉元()表名 = "sheet1"列 = "c" '此处字母代表你要去掉元字的数据所在的列 开始行 = 1 '此处数字代表你要去掉元字的数据开始的行的行号 结束行 = 100 ...
如何在excel中用宏删除包含特定文字的行
ALT+F11 粘帖下面代码 运行此宏即可 Sub 删除指定内容行()Dim fincell As Range On Error Resume Next Do With ActiveSheet.Rows("3:65536")Set findcell = .Cells.Find("分析表", LookAt:=xlPart)findcell.EntireRow.Delete Set findcell = .Cells.Find("土建工程", LookAt:=xlPart)findc...
excel中用宏批量删除特定列
Public Sub del_col(a, b) 'a为首列位置，b为末列数，按1,2,3 填写 'A列为1,B列为2依次类推，sheet_n 为 Dim i As Integer For i = a To b Range(CStr(Chr(96 + a) & ":" & Chr(96 + a))).Delete Next i End Sub ...
excel求如何用宏实现删除指定列的指定字
打开表格文件，按组合键[ALT]+[F11]，打开宏编辑器 在编辑器中插入模块 然后在右侧出现的模块代码编辑区录入一下程序代码 Sub 去掉元()表名 = "sheet1"列 = "c"'此处字母代表你要去掉元字的数据所在的列 开始行 = 1 '此处数字代表你要去掉元字的数据开始的行的行号 结束行 = 100 '此处数字...
如何在EXCEL中用宏代码按要求删除指定内容?
For D = 1 To Range("D65536").End(xlUp).Row If Cells(D, S) = 0 Then Cells(D, S).Clear Cells(D, S - 1).Clear Else End If Next Next Sheets(1).Select Range("a1").Select End Sub 使用以上代码，然后创建宏按钮 选择第一个控件，然后指定这个宏就行了。有用请采纳！
Excel宏如何清除某列或者某区域数据?
Sub 清除()Set cel = Range("c1:c100").Find(Range("a1"))cel.Clear End Sub
如何在Excel表批量删除某一列或某几列内容?
G7").ClearContentsEnd Sub 点击“保存”按钮，关闭VBA编辑器。在“新建按钮”对话框中，选择“宏”选项，并选择刚刚创建的宏。点击“确定”按钮，然后在单元格J1中会添加一个按钮。点击该按钮，即可清空A1-G7单元格的数据，同时保留其他格式。以上就是添加一个Excel批量删除多个单元格内容按钮的步骤。
Excel如何利用VBA的宏功能删除空行和指定字符的行?
总条件是：只针对A列的数据，不要删B列之后的其他列。最后又说：但是如果A2只是a，删除整行。这是矛盾的 还有，没说明白，是删除数据，还是删除单元格？Public Sub RowDele()Dim H As Long, i As Long, a, b H = Range("A65536").End(xlUp).Row a = Array("A", "a", "@", "#...
vba 删除excel中指定单元格
删除Excel中指定单元格的方法为：使用Range("A7:G7").Delete Shift:=xlUp。这里的"A7:G7"是目标删除区域，若行号用变量Row表示，则写为Range("A"&Row&":G"&Row)。xlUp参数表示在删除指定区域后，下方单元格上移。介绍一个获取VBA编码的技巧：利用Excel的录制宏功能。步骤如下：首先选择“工具”...
