VBA Excel处理

gavin_gxh

已于 2023-06-15 11:45:43 修改

阅读量115

点赞数

分类专栏： BASIS VBA 文章标签： excel 经验分享其他

于 2023-06-15 11:42:02 首次发布

gavin-gxh

本文链接：https://blog.csdn.net/xiaofei2008gxh/article/details/131224723

版权

BASIS 同时被 2 个专栏收录

92 篇文章 9 订阅

订阅专栏

VBA

2 篇文章 0 订阅

订阅专栏

想把

转换成

用于Excel 批量导入

做了一下VBA 方便账户和角色分配导入

excel 开发插入按钮

双击button

下入代码如下


Private Sub CommandButton1_Click()
Dim i, j, i1, j1
i1 = 1
For i = 3 To 13 '列
 For j = 2 To 93 '行
    If IsEmpty(Cells(j, i)) Then
    Else
    Cells(i1, 1) = Cells(1, i)  '账户
    Cells(i1, 2) = Cells(j, i)  '角色
    i1 = i1 + 1
    End If
 Next
 Next
End Sub

为basis 分配账户整理数据减轻负担了