网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：282,043贴子：1,557,501
  • 8回复贴，共1页

自动选择性粘贴为数值

A1里面的数值是随机变动的，
A1变动一次，就自动复制选择性粘贴数值到C1，
A1变动第二次，就自动复制选择性粘贴数值到D1，
A1变动第三次，就自动复制选择性粘贴数值到E1，
这样一直类推下去，
请教大神这样的公式要怎么写，
想半天也没想出来，


公式做不到，大佬用VBA可以@阿良


2026-01-02 22:27:22
广告
不感兴趣
开通SVIP免广告


Dim n
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then
Exit Sub
Else
n = n + 1
Target.Offset(, n + 1) = Target.Value
End If
End Sub


运行不了，C1没有出现数值，


双击左边的那个(Sheet1),代码放在那里面... 这是change事件,不能放模块里


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 8回复贴，共1页
分享到: