用VBA把A列拆分到CD列

15968725770

用VBA把A列拆分到CD列

lcluck2002

用VBA把A列拆分到CD列.xlsm
仅供参考

今铭昔

15968725770

今铭昔 发表于 2023-2-17 19:06

能用EXCEL VBA吗

今铭昔

15968725770 发表于 2023-2-17 19:13
能用EXCEL VBA吗

VBA有大佬帮你写了，我只是来凑个热闹的

准提部林

Sub TEST_A1()
With Range("d2", [a65536].End(3)(2))
     .Columns(1).Copy .Columns(3).Resize(, 2)
     .Columns(3).Replace "#*", "", Lookat:=xlPart
     .Columns(4).Replace "*#", ""
End With
End Sub

fzxba

1. Sub test1() '凑一下
   
2.   Dim Conn As Object, SQL As String, strConn As String
   
3.   If Application.Version < 12 Then
   
4.     strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="
   
5.   Else
   
6.     strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
   
7.   End If
   
8.   Set Conn = CreateObject("ADODB.Connection")
   
9.   Conn.Open strConn & ThisWorkbook.FullName
   
10.   SQL = "SELECT LEFT(物料编码,INSTR(物料编码,'#')-1),MID(物料编码,INSTR(物料编码,'#')+1) FROM [Sheet1$]"
    
11.   With Range("C1")
    
12.     .CurrentRegion.ClearContents
    
13.     .Resize(, 2) = Split("名称 型号")
    
14.     .Offset(1).CopyFromRecordset Conn.Execute(SQL)
    
15.   End With
    
16.   Conn.Close
    
17.   Set Conn = Nothing
    
18.   Beep
    
19. End Sub

复制代码

15968725770

准提部林 发表于 2023-2-17 19:22
Sub TEST_A1()
With Range("d2", [a65536].End(3)(2))
     .Columns(1).Copy .Columns(3).Resize(, 2)

谢谢老师谢谢老师谢谢老师谢谢老师

ctp_119

今铭昔 发表于 2023-2-17 19:06

这样的问题，最好不要用VBA，用分列操作一下，就完事了，你代码还没写好，我就处理好了！！！最佳方案是分列！！！

杨建营

新手练习，参与一下。