点击联系发帖人
时间：2022-11-19 09:25
好的，所以我正在尝试编写VBA代码，该代码将返回一个列字母，以后可用于选择要使用的列：
但不是" AC "而是调用函数以基于标题返回列字母。
现在我的返回字母的功能正在运行，它在第一行中搜索所需的标题(文本)，如果发生匹配，则返回列字母。
所以现在当尝试使用此功能时...
但是，这会导致错误。 (我假设它将字面上的文字放在引号内，而不是调用我的函数)
如何在其他子菜单中使用此功能，以选择具有适当标题的列？在此先感谢您的帮助！
您是否可以重写以使用Range.Find并在找不到标头的情况下返回变体？
不起作用是因为Columns希望您将其传递给字符串。但是，您尚未告诉VBA ColFind函数输出字符串。您可以通过将函数定义为以下内容来解决此问题：
感谢所有帮助，我终于使它成功了！原来我的代码确实有效，但我犯了一个菜鸟错误。我使用alt-enter格式化了我试图在Excel中选择的列标题。我以为标题是"客户电子邮件"，但实际上由于我的错误而只是"客户"。我告诉程序寻找不存在的东西。同样感谢QHarr，您的方法也有效，而且我了解到返回列字母只是不必要的工作。
《Excel-VBA技巧-复制粘贴保留行高列宽等所有格式的方法》由会员分享，可在线阅读，更多相关《Excel-VBA技巧-复制粘贴保留行高列宽等所有格式的方法（7页珍藏版）》请在人人文库网上搜索。
1、模模板板设设计计复复制制粘粘贴贴全全部部格格式式包包括括行行高高列列宽宽标标题题1 1 标标题题2 2正正文文正正文文模模板板设设计计复复制制粘粘贴贴全全部部格格式式包包括括行行高高列列宽宽标标题题1 1标标题题2 2标标题题1 1标标题题2 2标标题题1 1标标题题2 2正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文模模板板设设计计复复制制粘粘贴贴全全部部格格式式包包括括行行高高列列宽宽标标题题1 1
2、标标题题2 2标标题题1 1标标题题2 2标标题题1 1标标题题2 2正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文标标题题1 1标标题题2 2正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文标标题题1 1标标题题2 2正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文模模板板设设计计复复制制粘粘贴贴全全部部格格式式包包括括行行高高列列宽宽模
3、模板板设设计计复复制制粘粘贴贴全全部部格格式式包包括括行行高高列列宽宽ExcelExcel VBAVBA技技巧巧 复复制制粘粘贴贴保保留留行行高高列列宽宽等等所所有有格格式式的的方方法法Excel VBA用Copy方法进行复制粘贴，往往会导致粘贴的数据没有了行高和列宽。那么，当我们要进行复制粘贴时，如何保证粘贴的数据保留原有的格式(包括行高列宽都不能变)。笔者以一个模板设计为例进行说明。模板表如图1 所示。图1根据模板表生成表格的效果如图2所示。图2使用Copy方法复制粘贴，代码如下所示：Sub Copy复制粘贴困惑() Dim x As Integer With Sheet2
Sub运行代码效果如图3所示。图3粘贴时为了保证行高和列宽一同被复制，可以先整行使用Copy方法进行复制粘贴，这样就可以保证行高一同被复制；使用PasteSpecial方法选择性粘贴，参数Paste设置为xlPasteColumnWidths即可保证列宽一同被复制，参数Paste设置为xlPasteFormats则只粘贴格式而不粘贴数据。为了能一次性复制多份，粘贴区域的选择很重要，粘贴区域的行数
6、=样本区域行数横向份数，粘贴区域的列数=样本区域列数纵向份数。比如示例中正文区样本为2行3列，现需要横向5份/纵向4份共20份粘贴正文区，则粘贴区域应为2行5份=10行、3列4份=12列，即10行12列的区域，所以示例粘贴区域为.Cells(x + 3, B).Resize(10, 12)。如果粘贴区域设置不当将会出现不可意料的效果，请自行测试。好了，按照上述方法将代码修改成如下所示，运行后即可得到如图2所示效果。Sub 复制全部格式包括行高列宽() Dim x As Integer With Sheet2 清空数据 .UsedRange.Clear 恢复标准列宽 .Columns.Colum
