Сообщение об ошибке: 2147221040 (800401d0) ': DataObject: PutInClipboard Ошибка OpenClipboard или 2147221404 (80040064)': DataObject: GetText Неверная структура FORMATETC при запуске VBA на Win 10. Как ни странно, ошибка не всегда возникает в одной и той жевремя.Любые альтернативы или решения приветствуются.
Я хочу, чтобы 22 непрерывных вертикальных ячейки, например, E2-E23, каждый из которых был бы просто коротким текстом различной длины, был бы комментарием к B3, так что комментарий по существу был бы похож на E2 к E23 (также по вертикали), и следующие 22, E24 - E45, комментируют B4, повторяя 88 раз.
Sub nolan ()
для каждого рабочего листа в рабочих листах
Application.CutCopyMode = False
Worksheet.AutoFilterMode = False
Далее
с листами («Sheet2»))
.Cells.Borders.LineStyle = xlLineStyleNone
Dim cellrow As Integer, mycomment As Range, clpbd как New DataObject, clptxt As String
Для cellrow = от 0 до 87
Установить mycomment = Sheets (3) .Range ("f" & (ячейка * 22 + 2) & ": f" & (ячейка * 22 + 23))
mycomment.Copy
clpbd.GetFromClipboard
clptxt = clpbd.GetText
.Range ("b3"). Смещение (cellrow, 0) .AddComment.Text Text: = clptxt
Application.CutCopyMode = False
Далее
Завершить
Завершить Sub