Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/search/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
String 剪切并粘贴字符串VBA的最后8个字符_String_Vba_Excel_Worksheet Function - Fatal编程技术网

String 剪切并粘贴字符串VBA的最后8个字符

String 剪切并粘贴字符串VBA的最后8个字符,string,vba,excel,worksheet-function,String,Vba,Excel,Worksheet Function,您好,我想能够使用VBA将字符串的最后8个字符剪切并粘贴到另一张工作表上的表格中,然后返回字符串并将接下来的8个字符剪切并粘贴到我表格中的另一列中,依此类推,直到字符串中没有任何内容,因为这是一个非常长的电子表格,所以我希望能够将它循环到每一行。有什么想法吗?我认为ojf的思路是正确的,这不需要使用vba来完成。在新图纸上,在顶行生成值1、2、3、4等,然后在A2中使用公式: =LEFT(RIGHT([your long string cell],8*A1),8) 并根据需要多次向右拖动它。确

您好,我想能够使用VBA将字符串的最后8个字符剪切并粘贴到另一张工作表上的表格中,然后返回字符串并将接下来的8个字符剪切并粘贴到我表格中的另一列中,依此类推,直到字符串中没有任何内容,因为这是一个非常长的电子表格,所以我希望能够将它循环到每一行。有什么想法吗?

我认为ojf的思路是正确的,这不需要使用vba来完成。在新图纸上,在顶行生成值1、2、3、4等,然后在A2中使用公式:

=LEFT(RIGHT([your long string cell],8*A1),8)

并根据需要多次向右拖动它。确保使用f4锁定对字符串的引用。还要注意,这将创建尾随的重复项。

指定列,表是否有某种分隔符?您可以使用
Len
获取字符串的长度,如果长度为
>8
,您可以使用
Right
获取最后8个字符,然后删除最后8个字符,但是,您可以只获取长度并循环获取8×8个字符,然后粘贴到每列。