去掉指定列数据负号的问题

杨小妹 · 发表于 2024-3-19 08:11

本帖最后由杨小妹于 2024-3-19 09:17 编辑

附件

去掉指定列数据负号.rar (577.34 KB, 下载次数: 9)

谢谢老师！

liulang0808 · 发表于 2024-3-19 08:22

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
遍历文件，打开替换然后保存

沈默00 · 发表于 2024-3-19 08:58

沈默00 · 发表于 2024-3-19 08:59

本帖最后由沈默00 于 2024-3-19 10:32 编辑

友情提示一下，如果有360的需要关闭了，否则只能修改不能保存哟

沈默00 · 发表于 2024-3-19 09:00

.xlsb属于个人宏，360会当成不安全的东西，，

ykcbf1100 · 发表于 2024-3-19 09:02

附件供参考。。。

ykcbf1100 · 发表于 2024-3-19 09:03

参与一下。。。

Sub ykcbf() '//2024.3.19
Set fso = CreateObject("scripting.filesystemobject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set sh = ThisWorkbook.Sheets("Sheet1")
p = ThisWorkbook.Path & ""
For Each f In fso.GetFolder(p).Files
If f.Name Like "*.xlsb" Then
Set wb = Workbooks.Open(f, 0)
With wb.Sheets("Sheet1")
.Columns("E:E").Replace What:="-", Replacement:="", LookAt:=xlPart
End With
wb.Close 1
End If
Next f
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

limonet · 发表于 2024-3-19 09:17

关键字：update+iif

limonet · 发表于 2024-3-19 09:17

Sub limonet()
Dim Cn As Object, StrSQL$, Path$, FileName$
Set Cn = CreateObject("ADODB.Connection")
Path = ThisWorkbook.Path & "\"
FileName = Dir(Path & "*.xlsb")
Do While FileName <> ""
      Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no';Data Source=" & Path & FileName
      Cn.Execute ("Update [Sheet1$] Set F5=IIF(F5<0,F5*-1,F5)")
      Cn.Close
      FileName = Dir
Loop
End Sub

松永 · 发表于 2024-3-19 09:27

启动宏，点按钮

		自动登录	找回密码
密码			免费注册

[已解决] 去掉指定列数据负号的问题

评分

评分

评分

评分

评分

评分