- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115661)
-- 发布时间：2018/3/11 21:24:00
-- [求助]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:剔除尾号为4的车牌号.xls |
请问各位大师，我怎样可以直接在狐表中的一列中快速填充一串连续的，但是尾号是剔除为"4"的车牌号码，如我附件中的excel表格所示或下图所示，
| 云DAB001 |
| 云DAB002 |
| 云DAB003 |
| 云DAB005 |
| 云DAB006 |
| 云DAB007 |
| 云DAB008 |
| 云DAB009 |
| 云DAB010 |
| 云DAB011 |
| 云DAB012 |
| 云DAB013 |
| 云DAB015 |
| 云DAB016 |
| 云DAB017 |
| 云DAB018 |
| 云DAB019 |
| 云DAB020 |
| 云DAB021 |
| 云DAB022 |
| 云DAB023 |
| 云DAB025 |
| 云DAB026 |
| 云DAB027 |
| 云DAB028 |
| 云DAB029 |
| 云DAB030 |
| 云DAB031 |
| 云DAB032 |
| 云DAB033 |
| 云DAB035 |
| 云DAB036 |
| 云DAB037 |
| 云DAB038 |
| 云DAB039 |
| 云DAB040 |
| 云DAB041 |
| 云DAB042 |
| 云DAB043 |
| 云DAB045 |
| 云DAB046 |
| 云DAB047 |
| 云DAB048 |
| 云DAB049 |
| 云DAB050 |
-- 发布时间：2018/3/11 21:53:00
--
写代码，如
Dim str As String = "云DAB"
Dim s As Integer = 1
Dim e As Integer = 60
For i As Integer = s To e
If i Mod 10 <> 4 Then
Dim nr As DataRow = DataTables("表A").addnew
nr("第一列") = str & format(i, "000")
End If
Next
-- 发布时间：2018/3/12 22:38:00
--
谢谢你！有点甜，预期结果能出来了。