代码改写代码改写代码改写

1吧吧 · 发表于 2024-10-27 16:31

代码改写，

ynzsvt · 发表于 2024-10-27 16:39

Sub hebt1()
Dim cELL As Range, Sh As Worksheet
With Worksheets("Sheet1")
For Each cELL In .Range("A1:A10")
cELL.Offset(0, 3) = .Range("A1").Offset(0, 1) & cELL.Value
cELL.Offset(10, 3) = .Range("A1").Offset(1, 1) & cELL.Value
Next ' cell
End With
End Sub

复制代码

quqiyuan · 发表于 2024-10-27 16:44

是不是这个意思。。。。
Sub hebt1()
With Sheets("sheet1")
      For Each cell In .Range("A1:A10")
         cell.Offset(0, 3) = .Range("A1").Offset(0, 1) & cell.Value
         cell.Offset(10, 3) = .Range("A1").Offset(1, 1) & cell.Value
      Next
End With
End Sub

quqiyuan · 发表于 2024-10-27 16:45

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

[求助] 代码改写代码改写代码改写

评分

评分

评分