帮我看看如何实现自动给价加急

jdjh2021514 · 发表于 2018-9-5 16:58

Sub geijia0()

Dim arr, arr1(), n%
arr = [b:b]
For i = 1 To 999
If arr(i, 1) = "窗套" Then
n = n + 1
ReDim Preserve arr1(1 To n)
arr1(n) = arr(i, 1)
End If
Next
End Sub
我代码写到这里不会了
不需要vlookup 希望有vba实现求大神帮帮忙

朱荣兴 · 发表于 2018-9-6 08:35

提示: 作者被禁止或删除内容自动屏蔽

jdjh2021514 · 发表于 2018-9-6 09:45

朱荣兴发表于 2018-9-6 08:35
看你的表格和代码都没法知道你究竟想做什么

想实现在对应名称的后面有个重置单价初填写单价

		自动登录	找回密码
密码			免费注册

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-6 08:35 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报