正式版发布：强大的旋转变换与对称变换自定义函数

cqcbc

不错，楼主研究得很深，学习了。

aoe1981

　　本帖自定义函数的一个应用示例：
　　http://club.excelhome.net/forum. ... 010&pid=7879432
　　在该应用中自定义函数中的单元格区域参数被调整为内存数组形式，下一步将进一步完善，以使该函数更加灵活……

aoe1981

同时，在上楼链接的应用示例中，实践发现了8楼自定义函数的一个BUG，现予指出并意图加以解决：
目标区域内无空值时正确：

目标区域内部分单元格为空值时错误：

目标区域内整列或整行为空值时可能全部错误：

aoe1981

　　问题已解决：
　　
　　使用了chr(1)这个不可见字符，但不知其是不是不常见字符，万一撞上了，也还会出错的……

aoe1981

相关修正代码：

1.         If arr(i, j) = "" Then arr(i, j) = Chr(1) '将原始数据数组中的空值转换为不可见字符
   

复制代码

还原代码：

1. For i = 1 To h1
   
2.     For j = 1 To l1
   
3.         If crr(i, j) = Chr(1) Then crr(i, j) = "" '将结果据数组中的不可见字符还原为空值
   
4.     Next j
   
5. Next i
   

复制代码

aoe1981

　　现在可以自诩了：
　　我的对称变换自定义函数比TRANSPOSE()函数还要强大，图为证（附件见8楼）：
　　

legendworld0710

楼主太强大了，解决了我很大的问题