Tag: exceba

使用InStr和Left来从string中返回正确的文本

我正在玩一些IBAN / SWIFT代码，我在Excel VBA中有一个string ，但是我想从string中selectIBAN号码。 样品： DK4520005010201483 IBAN NDEADKKKXXX NL24ABNA0424079763 iban ABNANL2A DE56300700100303808000 IBAN DEUTDEDD 上面的string保存在stringiban 码： Dim cutDownStr as String, iban as string cutDownStr = iban fooStr = Left(cutDownStr, (Len(cutDownStr) – InStr(cutDownStr, " "))) MsgBox fooStr

在单元格中定位特定值并删除标识的行

我一直在使用这个网站，并且一直在寻找一种相对简单的方法来在Excel 07中实现VBA中的任务。 我有一个列有许多不同的值，我试图find单元格AA：AA开始“L-”，然后从那里删除表中的行。 activesheet /活动手册永远不会改变，但我遇到的问题是列有空白单元格时不时。 我试过使用下面的代码，但我没有达到我需要的结果。 Sub Remove_Expendables() Application.ScreenUpdating = FALSE Range("AA1").Select Do ActiveCell.Offset(1, 0).Select If ActiveCell = (Left("L-",2) Then ActiveCell.ClearContents Loop Until IsEmpty(ActiveCell.Offset(0, 2)) ActiveSheet.Columns("AA:AA").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Application.ScreenUpdating = TRUE End Sub