excel VBA DO循环

Public Sub kkkk()

Dim i, j

i = 2

Do

k = 0

For j = 1 To 50

If Cells(i + j, 1) = Cells(i, 1) Then

k = k + 1

End If

Next j

Range("G" & i & ":G" & i + k)Select

ApplicationCutCopyMode = False

SelectionCopy

Range("H" & i)Select

SelectionPasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

If k > 0 Then

Range("f" & i + 1 & ":j" & i + k)Select

SelectionClearContents

End If

i = i + k + 1

Loop Until i > 576

End Sub

Private Sub CommandButton1_Click()

Dim mydate As String, mytable As String, sql As String, i As Integer

Dim cnn As ADODBConnection

mydata = ThisWorkbookPath & "\商品信息表mdb"

mytable = "inventory"

Set cnn = New ADODBConnection

With cnn

Provider = "microsoftjetoledb40;Persist Security Info=False;Jet OLEDB:Database Password=123"

Open mydata

End With

For i = 1 To 4

sql = "update inventory set 商品编码='" & Chr(i + 64) & "'+MID(商品编码,3) where 商品编码 like '0" & i & "%'"

cnnExecute sql

Next

MsgBox "存货编码批量替换成功!", vbInformation

cnnClose

Set cnn = Nothing

End Sub

1、准备数据。

2、选中数据。

3、按ctrl+h组合键。

4、打开替换界面。

5、输入替换内容和要替换的内容。

6、点击全部替换即可。

注意事项：

Office常是制作文档文件的标准，而且有一些其他产品不存在的特性，但是其他产品也有Office缺少的特性。自从Microsoft 2007 Office System开始，有一个和以前版本差异很大的用户界面，该界面被称为Ribbon界面，并沿用在Microsoft Office 2010、Microsoft Office 2013和Microsoft Office 2016中。

以上就是关于excel VBA DO循环全部的内容，包括:excel VBA DO循环、请教如何在vba里同时运行多个update语句更新access数据库对应表、EXCEL VBA 批量替换单元格内容等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！