vba 单元格批量添加指定内容后面内容不变

zhangmy66 · 发表于 2024-9-3 10:27

本帖最后由 zhangmy66 于 2024-9-3 13:03 编辑

vba 单元格批量添加指定内容 GC2024424-0001X 后面数据不变

大灰狼1976 · 发表于 2024-9-3 10:44

不便下载附件，举例如下：
[A1:A100] = ["GC2024424-0001X-"&A1:A100]

zhangmy66 · 发表于 2024-9-3 10:48

大灰狼1976 发表于 2024-9-3 10:44
不便下载附件，举例如下：
[A1:A100] = ["GC2024424-0001X-"&A1:A100]

来个循环
A1="GC2024424-0001X-"&A1
A2="GC2024424-0001X-"&A2
这样吗

zhangmy66 · 发表于 2024-9-3 10:53

大灰狼1976 发表于 2024-9-3 10:44
不便下载附件，举例如下：
[A1:A100] = ["GC2024424-0001X-"&A1:A100]

sub test()
Dim 开始行, 有效行

Dim 表格内容 As Range

开始行 = 6

有效行 = Cells(Rows.Count, "m").End(xlUp).Row '统计第m列的有效数据

For Each 表格内容 In Range(Cells(开始行, 10), Cells(有效行, 10)) '对材质进行循环

表格内容 = "GC2024424-0001X-" & 表格内容

Next

End Sub

kyxfyzg · 发表于 2024-9-3 10:55

Sub test()
arr = Range("j6", Cells(Rows.Count, "j").End(xlUp))
For i = 1 To UBound(arr)
arr(i, 1) = "GC2024424-0001X-" & arr(i, 1)
Next i
Range("j6").Resize(UBound(arr), 1) = arr
End Sub

复制代码

大灰狼1976 · 发表于 2024-9-3 11:06

zhangmy66 发表于 2024-9-3 10:48
来个循环
A1="GC2024424-0001X-"&A1
A2="GC2024424-0001X-"&A2

不用的，单元格区域整体一句就行

zhangmy66 · 发表于 2024-9-3 11:32

大灰狼1976 发表于 2024-9-3 11:06
不用的，单元格区域整体一句就行

我在窗体声明了一个公用变量，然后在模块得不到公用变量值，这个怎么处理

大灰狼1976 · 发表于 2024-9-3 11:46

zhangmy66 发表于 2024-9-3 11:32
我在窗体声明了一个公用变量，然后在模块得不到公用变量值，这个怎么处理

窗体声明的公用变量只适用于窗体内的代码，标准模块里面才能声明全局变量。

zhangmy66 · 发表于 2024-9-3 13:02

大灰狼1976 发表于 2024-9-3 11:46
窗体声明的公用变量只适用于窗体内的代码，标准模块里面才能声明全局变量。

谢谢，指点

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

[已解决] vba 单元格批量添加指定内容后面内容不变

评分

评分