将sheet1工作表某个单元格的内容复制到sheet2工作的方法

wkc720

感觉自己越学学迷糊了。不知道该怎么弄了。
想请教一个问题。我现在想实现以下的操作。
当sheet1工作表单元格C5：C200中，任何一个单元格有数据填入的时候，我点一下命令按钮，就可以将有数据的单元格及其两边的单元格数据填入到sheet2的工作表中。
例如，C5和C9单元格内有数据填入，相应的我点一下命令按钮，就可以将A5：E5，复制到sheet2工作表内，A9：E9，按顺序也复制到sheet2工作表内。
具体结果见附件。
谁能帮忙写个代码，学习一下，谢谢了！！

wkc720

我个人感觉将几个动态的的单元格复制到另外一个工作表，需要用到数组，动态存储的数组，我又不知道该怎么用

ydmdzbg

用index就可以了，你在论坛里搜我的帖子就可以，没有必要用vba

wkc720

ydmdzbg 发表于 2015-6-5 16:19
用index就可以了，你在论坛里搜我的帖子就可以，没有必要用vba

你说的对，但是我在学VBA，所以尝试一下。老是搞不定，急死我啦。

wkc720

没有人在看了吗？？？？？

wkc720

朱荣兴 发表于 2015-6-5 18:02

这个代码看的不是很明白。a和k没有定义嘛？？
假如说我不再将内容填入到sheet2工作表了，而是填入到同一个文件夹下的“上料记录”工作簿内，该怎么写呢？

wkc720

朱荣兴 发表于 2015-6-6 11:20
呵呵，k不需要定义，后面不是还有一个k=k+1的嘛
“a”是工作表的列号，这还需要你定义吗？
至于跨工作 ...

哎！学艺不精啊。
方便的话，可以帮我写个存储到另外一个名为“上料记录”工作簿的代码，让我看看吗？
本来今天我休息，可是脑海里老是想着这个问题，今天就又来自己上班在琢磨这个问题了。