如何用VB代码将A列每个单元格里所含有指定的字符复制到B列，要用VB代码

答案:3 悬赏:30

解决时间 2021-02-02 09:10

提问者网友：醉归
2021-02-02 05:42

FB011201033DV077-01450A6975440.41040AXBV C
FB011201033KN077-01450A6994936.81036AXBV D
如以下为在A列的信息，要将含有"FB12"字符的单元格复制到B列：
FB011201033KO077-01450A7014937.11028AXBV D
FB011201033KP077-01450A6994936.31046AXBV F
FB011201033KQ077-01450A7054936.81045AXBV D
FA121201033KR077-01450A7044936.61046AXBV D
FB031201033KS077-01450A6994936.81031AXBV D
FB031201033KT077-01450A7044936.51046AXBV D
FA121201033KU077-01450A7024936.51045AXBV D
FB181201033KV077-01450A7025138.01043AXBV F
FB181201033KX077-01450A7014936.41046AXBV D
FA121201033QZ077-01450A7525242.71025AXBV D
FA121201033R2077-01450A6754835.31025AXBV D
FB051201033R3077-01450A6904633.81025AXBV D
FB051201033R4077-01450A7035441.81023AXBV D
FA121201033R5077-01450A7135139.71023AXBV D
FB301201033R6077-01450A7514535.91033AXBV D
FB301201033R7077-01450A6965239.41020AXBV D

在2010 EXCEL里，使用VB代码完成将每单元格前四位含有"FB12"或"FA12"或"FB30"等指定字符的单元格信息复制到B列指定位置。

最佳答案

二级知识专家网友：一场云烟
2021-02-02 06:43

Sub CheckCopy()
Dim I As Long, U As Long, S As String
U = UsedRange.Rows.Count
For I = 1 To U
S = Range("A" & CStr(I)).Value
If InStr(UCase(a), "FB12") > 0 Then Range("B" & CStr(I)).Value = S
Next I
End Sub
此代码不区分大小写，如要区分去掉UCASE函数

全部回答

1楼网友：瘾与深巷
2021-02-02 08:31

A列是啥控件的还是EXCEL都不肯告诉大家

2楼网友：山鬼偶尔也合群
2021-02-02 07:37

Private Sub Command1_Click() Set xlApp = New Excel.Application Set xlApp = CreateObject("Excel.Application") 'On Error Resume Next xlApp.Visible = True Set xlBook = xlApp.Workbooks.Open(App.Path & "\1.xls") b1 = 1 a1 = 1 Do While xlApp.Worksheets("Sheet1").Cells(a1, 1).Value <> "" If InStr(xlApp.Worksheets("Sheet1").Cells(a1, 1).Value, "FB12") > 0 Then xlApp.Worksheets("Sheet1").Cells(b1, 2).Value = xlApp.Worksheets("Sheet1").Cells(a1, 1).Value b1 = b1 + 1 End If a1 = a1 + 1 Loop xlBook.Save ActiveWorkbook.Close xlApp.Quit Set xlApp = Nothing End Sub

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！