设为首页收藏本站

简字体切换切换到宽版

ExcelHome技术论坛»论坛 › Excel 技术交流与问答 › Excel VBA程序开发 › JS for Office&WPS › VBA

EH技术汇-专业的职场技能充电站	妙哉！函数段子手趣味讲函数	Excel服务器-会Excel,做管理系统	效率神器，一键搞定繁琐工作
HR薪酬管理数字化实战	Excel 2021函数公式学习大典	Excel数据透视表实战秘技	打造核心竞争力的职场宝典
让更多数据处理，一键完成	数据工作者的案头书	免费直播课集锦	ExcelHome出品 - VBA代码宝免费下载
	用ChatGPT与VBA一键搞定Excel	WPS表格从入门到精通	Excel VBA经典代码实践指南

12 / 2 页

发新帖

楼主: 43588888

[求助] VBA

TA的精华主题

TA的得分主题

楼主| 发表于 2024-9-10 14:39 | 显示全部楼层

[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★

这是压缩包

现场过程质量初步检查.7z

118.9 KB, 下载次数: 0

回复

TA的精华主题

TA的得分主题

发表于 2024-9-10 16:00 | 显示全部楼层

[广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★

Sub 保存录入()
Dim arr, brr(28)
Dim m%, n%, k%
Dim j&
arr = Worksheets("数据录入").Range("B7:E23").Value
For n = 1 To UBound(arr, 1)
For m = 2 To 4 Step 2
If arr(n, m - 1) <> "" Then
brr(k) = arr(n, m)
k = k + 1
End If
Next
Next
With Worksheets("2-数据记录")
j = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("A" & j).Resize(1, 29).Value = brr
End With
MsgBox "保存成功!"
Worksheets("数据录入").Range("C7:C23").ClearContents
Worksheets("数据录入").Range("E7:E23").ClearContents
End Sub

复制代码

现场过程质量初步检查.zip (100.19 KB, 下载次数: 0)

回复

TA的精华主题

TA的得分主题

发表于 2024-9-10 16:01 | 显示全部楼层

[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★

参考

现场过程质量初步检查.zip (100.19 KB, 下载次数: 2)

回复

TA的精华主题

TA的得分主题

楼主| 发表于 2024-9-11 09:27 | 显示全部楼层

[广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★

kuangben8 发表于 2024-9-10 16:01
参考

大佬请问我又加了一列之后需要怎么修改代码呢？

回复

12 / 2 页

发新帖

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-25 15:28 , Processed in 0.039188 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！本站特聘法律顾问：李志群律师

快速回复 返回顶部 返回列表